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ABSTRACT 


A  computer  program  is  described  which  enables  one  to  compute 
the  pressure  waveform  at  a  distant  point  following  the  detonation 
of  a  nuclear  explosion  in  the  atmosphere.  The  theoretical  basis 
of  the  program  and  the  numerical  methods  used  in  its  formulation 
are  explained;  a  deck  listing  and  instructions  for  the  programfs 
operation  are  included.  The  primary  limitation  on  the  program's 
applicability  to  realistic  situations  is  that  the  atmosphere  is 
assumed  to  be  perfectly  stratified.  However,  the  temperature  and 
wind  profiles  may  be  arbitrarily  specified,  numerical  studies 
carried  out  by  the  program  show  some  discrepancies  with  previous 
computations  by  Harkrider  for  the  case  of  an  atmosphere  without 
winds.  These  discrepancies  are  analyzed  and  shown  to  be  due  to 
different  formulations  of  the  source  model  for  a  nuclear  explosion. 
Other  numerical  studies  explore  the  effects  of  various  atmospheric 
parameters  on  the  waveforms.  In  the  remainder  of  the  report, 
two  alternate  theoretical  formulations  of  the  program  are  described. 
The  first  of  these  is  based  on  the  neglect  of  the  vertical 
acceleration  term  in  the  equations  of  hydrodynamics  and  allows 
a  solution  by  Cagniard's  integral  transform  technique.  The 
second  is  based  on  the  hypothesis  of  propagation  in  a  single 
guided  mode  and  permits  a  study  of  the  effects  of  departures 
from  stratification  on  the  waveforms. 
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Chapter  I 


INTRODUCTION 


1.1  SCOPE  OF  THE  REPORT 

The  present  report  summarizes  investigations  carried  out  by 
the  authors  during  the  years  1966-1968  on  the  propagation  of 
low  frequency  pressure  disturbances  under  Air  Force  Contract 
No.  F19628-67-C-0217  with  the  Air  Force  Cambridge  Research 
Laboratories,  Bedford,  Massachusetts.  The  study  performed  was 
theoretical  in  nature. 

The  principal  problem  which  the  authors  chose  to  study  was 
that  of  the  theoretical  prediction  of  the  pressure  waveform 
(acoustic  pressure  versus  time)  which  would  be  detected  near  the 
ground  at  a  large  horizontal  distance  (between  500  and  20,000  km) 
from  a  nuclear  explosion  in  the  lower  atmosphere.  This  problem 
was  selected  for  several  reasons. 

Nuclear  explosions,  particularly  those  in  the  megaton  range, 
excite  waves  whose  dominant  periods  lie  in  the  so-called 
acoustic-gravity  range  (roughly  between  1  and  20  minute  periods). 
These  acoustic-pravity  waves  are  relatively  little  understood 
at  present  and  exhibit  many  interesting  properties  which  invite 
serious  inquiry. 

Of  all  the  known  sources  which  may  excite  acoustic-gravity 
waves  capable  of  being  detected  at  large  distances,  the  nuclear 
explosions  correspond  most  closely  to  point  sources.  This  allows 
a  considerable  simplification  in  the  analysis.  Furthermore,  the 
nuclear  explosions  are  better  understood  and  may  be  described  in 
a  more  detailed  quantitative  fashion  than  would  be  natural  sources 
such  as  volcano  eruptions,  weather  disturbances,  etc. 

A  considerable  amount  of  data  on  pressure  waveforms  recorded 
following  nuclear  explosions  exists  and  is  published  in  the 
scientific  literatus-..  Since  the  explanation  of  data  should  be 
a  principal  reason  for  any  theoretical  development,  it  is 
natural  to  begin  with  the  study  of  phenomena  for  which  a  large 
bulk  of  systematically  obtained  data  exists. 

It  would  appear  that  the  possible  application  of  a  theory  of 
waves  generated  by  nuclear  explosions  to  the  interpretation  of 
experimental  data  would  be  of  some  practical  importance,  either 
as  an  aid  in  a  possible  acoustic  detection  system  of  nuclear 
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explosions,  or  as  a  means  of  inferring  some  of  the  as  yet  imper¬ 
fectly  known  properties  of  the  earth’s  upper  atmosphere.  In  this 
respect,  the  first  step  would  clearly  be  the  development  of  a 
deterministic  theory  which,  given  certain  properties  of  the 
explosion  and  of  the  atmosphere,  allows  one  to  predict  the 
waveforms. 

It  should  be  mentioned  at  the  outset  that  the  problem  under 
consideration  has  been  of  considerable  interest  to  a  large  seg¬ 
ment  of  the  scientific  community  for  some  time  and  that  the 
problem  has  an  illustrious  background.  The  present  report 
merely  reports  a  continuation  of  one  facet  of  a  lengthy  pattern 
of  research  which  has  been  carried  on  by  a  large  number  of 
investigators  in  the  past.  In  a  somewhat  restricted  sense,  the 
work  reported  here  is  a  continuation  of  work  done  by  one  of  the 
authors  (A.  Pierce)  under  Air  Force  Contract  No.  AF  19  (628)  -  3891 
with  Avco  Corporation  during  1964-1966, 

A  major  part  of  the  present  report  is  concerned  with  the 
explanation,  presentation,  and  description  of  a  computer  program 
(which  we  refer  to  by  the  name  INFRASONIC  WAVEFORMS)  which  was 
developed  during  the  course  of  the  contract.  This  program  is 
based  on  a  theory  which  assumes  the  atmosphere  to  be  perfectly 
stratified  and  to  have  somewhat  arbitrary  temperature  and  wind 
velocity  profiles.  This  theory,  described  in  some  detail  in 
Chapter  II,  is  based  on  a  number  of  approximations  which  restrict 
its  application  to  waveforms  recorded  near  the  ground  at  large 
distances  from  low  to  moderate  altitude  nuclear  explosions.  In 
addition,  the  computational  method  restricts  the  application  of 
the  program  to  the  earliest  portion  of  the  dominant  signal,  which 
travels  with  a  speed  roughly  equal  to  the  speed  of  sound  at  the 
ground. 

Chapter  III  gives  a  user’s  manual  for  the  program,  with 
instructions  for  preparing  input,  description  of  tl  j  possible 
output  of  the  program,  and  sample  input  and  output.  A  deck 
listing  of  the  program  is  given  in  Appendix  B. 

In  Chapter  IV,  some  numerical  studies  made  using  the  program 
are  reported.  These  studies  include  the  explanation  of  some 
discrepancies  with  previous  computations  by  liarkrider  for  the  case 
of  atmospheres  without  winds;  the  discrepancies  being  due  to 
differences  of  methods  of  incorporating  a  source  model  into  the 
formulation.  A  discussion,  with  numerical  examples,  is  also 
given  of  the  effects  of  variations  in  parameters  describing  the 
atmosphere  on  the  waveforms.  There  we  conclude  that  the  physical 
significance  of  the  individual  guided  modes  predicted  for  a  given 
atmosphere  model  is  extremely  limited  and  that  the  total  waveform 
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is  relatively  insensitive  to  variations  in  the  parameters 
characterizing  the  atmosphere.  An  extensive  comparison  with  data 
remains  to  be  carried  out.  The  only  example  presented  in  this 
report  is  for  the  case  recorded  at  Berkley,  California,  on 
30  October,  1962  following  an  explosion  13.60°  15.  172.22°  W.  near 
Johnson  Island.  We  chose  this  record  as  it  appeared  to  be  the 
least  affected  by  ambient  noise  of  the  records  exhibited  by  Donn 
and  Shaw.  Although  the  choice  may  therefore  appear  somewhat  for¬ 
tuitous,  the  agreement  of  the  theoretically  obtained  waveform  with 
this  record  would  appear,  from  a  subjective  standpoint,  to  be 
extremely  good. 

The  following  two  chapters,  V  and  VI,  present  two  alterr  ite 
theoretical  formulations  of  the  problem  of  predicting  waveforms. 

The  first  of  these,  described  in  Chapter  V,  represents  an  appli¬ 
cation  of  various  mathematical  techniaues  generally  known  as 
Cagniard's  method  to  the  idealized  case  when  the  vertical 
acceleration  term  in  the  equations  of  hydrodynamics  is  neglected 
at  the  outset.  The  second,  described  in  Chapter  VI,  is  based  on 
the  assumption  that  the  propagation  is  predominantly  in  a  single 
quasi-mode  which  resembles  Lamb’s  mode  for  an  isothermal  atmo¬ 
sphere.  This  theory  represents  an  extension  of  some  ideas 
recently  expressed  by  Bretherton  (1969)  and  by  Garrett  (1969),  and 
shows  considerable  promise  in  that  it  is  not  restricted  to  a 
stratified  atmosphere  or  to  linear  equations.  The  quantitative 
implications  of  these  theories  are  not  explored,  but  are  discussed 
in  the  present  report  wi th  the  hope  that  they  may  be  of  interest 
to  other  researchers  concerned  with  acoustic-gravity  wave  propagation. 
At  the  time  of  this  writing,  we  are  especially  optimistic  about  the 
single  mode  theory  and  hope  to  have  some  quantitative  assessment 
of  its  applicability  in  the  very  near  future. 
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Chapter  II 

THEORETICAL  BASIS  OF  INFRASONIC  WAVEFORMS 


2.1  SUMMARY  OF  THE  THEORETICAL  MODEL 

The  mathematical  model  on  which  the  computer  program 
IliFRASOillC  WAVEFORMS  is  based  is  briefly  summarized  here.  The 
geometry  adopted  (Fig.  2-1)  is  that  of  a  stratified  atmosphere 
above  a  rigid  flat  earth.  The  ambient  atmosphere  is  described 
by  a  sound  speed  profile  c(z)  and  a  wind  velocity  profile  v(z), 
where  z  is  height  above  the  ground.  Both  of  these  profiles  are 
assumed  independent  of  horizontal  coordinates  x  and  y  and  of 
time  t.  Moreover,  the  ambient  winds  are  assumed  to  be  horizontal. 

The  air  comprising  the  atmosphere  is  taken  as  an  ideal  gas 
of  constant  specific  heat  ratio  y  *  1.4  and  of  constant  mean  mo¬ 
lecular  weight.  Thus  the  ambient  pressure  p  and  density  p 
satisfy  the  hydrostatic  relation  and  the  ideal  gas  law 


P0(«)  *  Po<0)  exp 


PD  «  YPq/c2  (2.1.2) 

where  p  (0)  (taken  as  10£  dynes/cm2)  is  the  ambient  pressure  at 
the  ground.  Since  the  propagation  is  considered  to  be  predomi¬ 
nantly  in  the  lower  atmosphere,  the  acceleration  of  gravity  g  Is 
taken  to  be  constant  with  height  and  eaual  to  the  typical  earth 
surface  value  of  .009B  km/sec2. 

The  neglect  of  earth  curvature  is  in  accordance  with  the  re¬ 
sults  of  previous  studies  by  Weston  (1961)  and  by  llarkrider  (1964) 
which  indicate  that  the  curvature  of  the  earth  can  approximately 
be  accounted  for  by  multiplying  the  flat  earth  waveform  by  the 
factor 

[(r/re)/sin(r/re)]1/2  (2.1.3) 

where  r  is  the  great  circle  propagation  distance  and  r  is  the 
radius  of  the  earth.  This  result  holds  in  particular  for  waves 
which  have  traveled  somewhat  less  than  one-fourth  the  circum¬ 
ference  of  the  earth.  Since  the  intended  application  of  the  pro¬ 
gram  is  for  the  interpretation  of  data  recorded  at  distances  less 


z 

•1 


(yg/c2)dz 


(2.1.1) 
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YIELD  I  c  =  c  (z) 


Figure  2-1.  Sketch  shoving  the  general  model  adopted  in  the 
theoretical  formulation.  An  explosion  of  yield  Y  is  at  height 
s  above  a  flat  rigid  ground  in  an  atmosphere  with  stratified 
sound  speed  c  and  horisontal  wind  velocity  v.  The  wave  dis¬ 
turbance  is  detected  by  an  observer  with  coordinates  (x,y,z). 
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than  this  and  since  the  factor  above  does  not  vary  appreciably 
from  1  for  such  a  range  of  distances ,  this  correction  is  ne¬ 
glected.  In  general,  we  consider  such  a  correction  to  be  minor 
compared  with  the  inevitable  uncertainties  in  the  source  model  and 
the  ambient  atmosphere. 


In  order  that  the  model  be  amenable  to  computation,  we  con¬ 
sider  the  propagation  to  be  governed  by  the  linearized  equations 
of  hydrodynamics.  This  would  appear  to  be  a  fair  approximation 
at  large  distances  from  the  explosion,  although  it  is  clearly  not 
applicable  close-in.  It  is  therefore  implicitly  assumed  that  any 
near-  field  nonlinear  effects  may  be  taken  into  -account  by  a  ju¬ 
diciously  chosen  source  model. 


The  source  model  adopted  here  (whose  rationale  is  discussed 
at  some  length  in  the  next  section)  is  that  where  the  presence 
of  the  source  and  the  near  field  nonlinear  effects  are  repre¬ 
sented  by  a  time-varying  point  energy  source  term  added  to  the 
right  hand  side  of  the  linearized  equation  which  corresponds  to 
energy  conservation.  Thus  the  governing  equations  (which  are  to 
be  satisfied  everywhere  above  the  ground)  are  taken  to  be  of  the 
form 


(  u  +  (u*7)v 


-  Vp  -  gpe 


(2.1.4a) 


DtP  +  7« (pQu) 

[DtP  +  u*7po 


0 

c2 |dcp  +  u*7pq 

■  4nc2f  (t)6(r  -  r) 

£«  O 


(2.1.4b) 


(2.1.4c) 


where 


Dt  -  (3/at)  +  v*7 


is  the  time  derivative  corresponding  to^an  observer  moving  with  the 

ambient  wind.  In  the  above,  p,  p,  and  u  represent  the  deviations 

of  pressure,  density,  and  fluid  velocity  from  their  ambient  values. 

£he  quantity  e  is  the  unit  vector  in  the  vertical  direction,  while 

r  denotes  the  source  location, 
o 

The  time-dependent  quantity  fE(t)  represents  a  function 
characteristic  of  the  source.  For  convenience  of  referral,  we 
state  here  our  choice  of  this  function  prior  to  a  discussion  of 
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the  rationale  behind  such  a  choice.  We  take 


t 

f£(t)  ■  dt  (2.1.5a) 


where 

f-(t)  -  ^3[P0(*0)/P0W)]2/\f1KTCtA0Y^3])  (2.1.5b) 

Here  is  the  explosion  yield  in  KT,  p  (z  )  is  the  ambient 
pressure  at  the  height  of  burst,  and  \  a  scaling  factor 
given  by  ° 

Xo«  [c(0)/c(zo)][po(0)/po(zo)]1/3  (2.1.6) 

The  quantity  is  a  length  identically  equal  to  1  km,  which  we 
include  in  the8 theory  for  dimensional  "purity".  The  function 

flKT^  is  8lven  by 

-t/t 

flKT(t)  *  (Ps)(1  *  t/ts)e  U(t)  (2.1.7) 

where 


P  »  1,61  x  34.45  x  10s  dynes/cm2 

t  »  0.48  sec. 
s 

Here  U(t)  is  the  Heaviside  unit  step  function  and  z  denotes  the 
height  of  burst. 

In  the  actual  computation,  the  source  location  r  is  taken 
to  be  a  fixed  point  in  space.  An  alternative  assumption  which 
might  seem  more  plausible  is  to  take  the  source  as  moving  with 
the  ambient  wind  at  the  height  z  of  burst.  However,  the  results 
of  the  computation  should  be  insensitive  as  to  just  which  assump¬ 
tion  is  made.  This  follows  since  we  limit  our  analysis  to  dis¬ 
turbances  which  travel  with  speeds  near  the  speed  of  sound  near 
the  ground  and  since  the  wind  speeds  are  invariably  much  less  than 
the  sound  speed.  Any  phenomenon  analogous  to  a  doppler  shift 
would  undoubtedly  be  smaller  than  could  feasibly  be  detected  by 
experiment. 

Boundary  conditions  on  Eqs.  (2.1.4)  are  that  u  *  0  at  the 
ground  z  *  0  and  that  of  causality  (no  disturbance*in  the  far 
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field  before  f£(t)  first  becomes  nonzero).  The  time  origin  here 
is  not  considered  of  too  much  relevance.  With  the  definition 
given  for  f£(t),  it  is  approximately  (the  discrepancy  being  due 
to  nonlinear  effects)  dqual  to  the  time  of  detonation.  We  also 
take  the  source  location  to  be  on  the  z  axis  (x  ■  y  ■  0). 
Generally,  we  consider  the  4-x  axis  to  point  eastward,  and  the 
+y  axis  to  point  northward. 


2.2  THE  SOURCE  MODEL 

Here  we  summarize  the  rationale  behind  the  choice  of  the 
source  model  given  in  the  preceding  section.  The  discussion 
partly  follows  the  development  previously  given  by  Pierce  (1968). 

We  consider  a  basic  nonlinear  hydrodynamics  model  of  a 
nuclear  explosion  consisting  of  an  initially  isothermal  sphere 
of  vanishingly  small  radius  in  an  unbounded  homogeneous  atmo¬ 
sphere  with  negligible  gravity.  The  initial  isothermal  sphere 
has  ambient  density  and  fluid  velocity,  but  is  assumed  to 
have  very  high  temperature  and  pressure.  The  total  thermal 
energy  (the  specific  heat  of  air  is  assumed  independent  of 
temperature)  inside  the  sphere  is  denoted  by  E,  ,  which  re¬ 
presents  the  total  hydrodynamic  energy  released^ by  the  ex¬ 
plosion.  This,  according  to  what  is  given  in  Glass tone's  text 
(1962)  should  be  roughly  1/2  of  the  total  energy  of  the  ex¬ 
plosion. 

The  pressure  waveform  of  the  explosion  in  this  idealized 
model  can  easily  be  shown  to  correspond  to  hydrodynamic  scaling,, 
i.e. 


p  «  pQF(R/X,  ct/X)  (2.2.1) 

where  p  and  c  are  ambient  pressure  and  sound  speed,  F  is  a  uni¬ 
versal  ?unction,  and  X  is  a  characteristic  length  given  by 

X  ’  (VPo>1/3  (2-2-2> 

Experiment  and  numerical  computations  show  that  at  mo¬ 
derate  distances  (between  3  and  10X  from  a  nuclear  explosion) 
the  time  dependence  of  the  blast  overpressure  is  approximately 
of  the  form  (t  relative  to  time  of  shock  arrival) 

p  =  (P)(l  -  t/T)e"t/TU(t)  (2.2.3) 

where  P  and  T  are  functions  of  distance.  According  to  F.q. 
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(2.2.1)  above,  we  may  take 

T  -  (X/c)A(R/X)  (2.2.4a) 

P  -  poB(R/X)  (2.2.4b) 

where  A  and  B  are  universal  functions  of  (R/X).  It  Is  dear, 
since  the  far  field  propagation  should  be  governed  by  linear 
acoustics,  that  A  should  at  large  R  be  a  relatively  slowly 
varying  function  of  R/X  and  that,  at  large  R,  B  should  be  ap¬ 
proximately  (spherical  spreading) 

B  :  B  X/R  (2.2.5) 

0 

where  Bq  is  a  very  slowly  varying  function  of  R/X. 

The  basic  idea  in  our  source  term  selection  Is  that  fg(t) 
in  Eq.  (2.1.4c)  should  be  such  that  the  solution  of  the  linear¬ 
ized  equations  of  hydrodynamics  with  the  neglect  of  gravity  and 
winds  and  for  the  same  uniform  ambient  atmosphere  should  agree 
with  Eq.  (2.2.1)  at  moderate  distances.  The  ambient  atmosphere 
for  this  matching  process  is  taken  as  that  characteristic  of  the 
burst  location.  The  solution  of  the  linearized  equations 
under  the  circumstances  outlined  above  gives 

p  -  R_1f^(t  -  R/c)  (2.2.6) 

Thus,  we  would  choose  f'  to  be 

& 

fl(t)  -  p  B  X (1  -  t/T)e“t/TU(t)  (2.2.7) 

b  O  O 

The  value  of  R/X  chosen  for  the  matching  is  that  corresponding  to 
1  km  from  a  1  KT  explosion  at  sea  level.  According  to  Glas- 
stone's  text (1962)  the  value  of  P  at  one  mile  from  such  an 
explosion  is  34.45  x  103  dynes/cm2  while  the  value  of  T  is  0.48 
sec.  Since  we  expect  the  shock  overpressure  to  fall  off  nearly 
inversely  with  R  between  1  km  and  1  mile  we  may  take  P  to  be 
34.45  x  10  3  x  1.61  dyne/cm2  at  one  km.  (Here  we  use  the  fact 
that  1  mile  is  1.61  kin* )  Thus 

p.V  ■  «-2-8a) 

T  -  Y^3[po(0)/po(zo)}1/3[c(0)/c(zo)]t8  (2.2.8b) 
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where  P  ,  L  ,  and  t  are  as  defined  in  the  preceding  section  and 
Y^  is  Ihe  inergy  yield  in  KT.  Equations  (2,2.7) ,  (2,2.8a,b) 
agree  with  the  definition  of  f '  given  in  the  preceding  section. 

It  now  remains  to  examine  the  limitations  of  this  source 

model.  The  basic  assumption  v have  made  is  that  gravity  and 

atmospheric  gradients  have  relatively  little  effect  on  the  early 

development  of  the  blast  wave.  Another  important  assumption  is 

that  the  initial  fireball  radius  (before  the  shock  detaches  from 

the  fireball)  is  sufficiently  small  that  the  radius  of  the  initial 

sphere  may  be  idealized  as  zero.  This  radius  is  conjectured  by 

Pierce  (1968)  to  be  about  .05  X.  The  two  approximations  would 

clearly  be  inappropriate  if  the  initial  sphere  radius  were  of  the 

order  of  a  scale  height  H  .  Thus  one  should  certainly  require 

X  «  20  11  .  8 

s 

The  establishment  of  a  more  realistic  upper  bound  appears 
to  be  a  somewhat  complicated  problem.  Our  best  guess  to  date  is 
that  the  positive  phase  duration  by  the  time  the  blast  overpres¬ 
sure  is  down  to  10%  ambient  should  be  smaller  than  1/10  the 
period  (about  5  minutes)  corresponding  to  Brunt’s  frequency 
or  Hines'  This  would  insure  that  there  be  negligible 

acoustic-gravity  wave  dispersion  in  the  waveform  while  non¬ 
linear  effects  are  appreciable.  This  requirement  gives  roughly 

YMT  <  200  ^ ATMOS  (2.2.9) 

where  Y  is  the  yield  in  MT  and  PATM0S  is  the  ambient  pressure 
at  the  height  of  burst  in  atmospheres  (see  Fig.  2-2],  We  are 
not  sure  if  this  requirement  is  too  conservative  or  too  generous 
at  present,  but  we  offer  it  as  a  rough  guideline  to  workers  who 
might  wish  to  use  the  program. 

It  should  be  noted  that,  in  our  source  model,  we  have  taken 
a  point  energy  source  rather  than  a  point  mass  source.  In 
actual  practice,  for  the  computation  of  ground  level  waveforms, 
it  makes  relatively  little  difference  whether  one  adopts  an 
energy  source  or  a  mass  source.  However,  when  one  considers  the 
fact  that  a  nuclear  explosion  adds  much  energy  but  relatively 
little  mass  to  the  atmosphere,  it  is  clear  that  the  energy  source 
model  is  a  priori  the  more  realistic.  One  of  the  authors  (Pierce, 
1968)  has  examined  the  relative  merits  of  the  two  types  of 
sources.  He  found  the  linear  initial  value  problem  of  waves 
generated  by  the  release  of  an  initially  isothermal  sphere  of 
ambient  density  was  better  represented  by  the  point  energy  source. 
[It  should  be  noted  that  the  use  of  a  point  energy  source  rather 
than  a  point  mass  source  is  a  relatively  nev;  concept  in  the  theory 
of  acoustic-gravity  wave  propagation.  In  particular,  all  of  the 
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HEIGHT  OF  BURST  (km) 


Figure  2-2.  Estimated  range  of  yields  and  source  altitudes  for 
which  the  effective  point  source  model  is  valid. 


authors’  work  prior  to  1968  was  based  on  the  use  of  a  point  mass 
source  model,] 

One  inherent  defect  in  the  model  is  that  we  have  no  me¬ 
chanism  for  taking  into  account  the  far  field  nonlinear  effects. 
In  the  related  problem  of  sonic  boom  propagation,  these  are 
known  not  to  be  negligible.  While  they  do  not  change  wave¬ 
forms  appreciably  over  shorter  distances,  their  accumulative 
effects  can  cause  large  distortions  over  vary  large  distances. 
While  these  far  field  nonlinear  effects  should  be  examined  in 
some  detail  in  the  future,  we  suspect  that  they  are  not  as  im¬ 
portant  in  the  infrasonic  nuclear  explosion  problem  as  they  are 
for  sonic  booms.  The  basis  for  this  belief  is  that  the  inherent 
dispersive  nature  of  the  atmosphere  as  a  waveguide  tends  to 
filter  out  the  higher  frequencies  from  the  lowest  part  of  the 
atmosphere  and  causes  the  lower  frequencies  to  tend  to  arrive 
first.  The  nonlinear  effects  should  be  of  lesser  importance 
for  the  dominant  lower  frequency  arrivals  since  the  time  for 
a  wave  peak  to  overtake  a  node  is  correspondingly  longer  for 
lower  frequencies. 


2.3  T1IE  SOLUTION  IN  TERMS  OF  FOURIER  TRANSFORMS 


Since  the  linearized  equations  of  hydrodynamics  do  not  de¬ 
pend  explicitly  on  time  and,  except  at  the  source  location,  do 
not  depend  explicitly  on  horizontal  position  x  (due  to  the  as¬ 
sumed  stratification  of  the  ambient  atmosphere),  one  may  express 
their  solution  as  a  triple  Fourier  transform  over  frequency  w 
and  horizontal  wave  number  vector  components,  k  and  k  .  Thus 
one  may  write  the  acoustic  pressure  p,  for  example,  asy 


f  i 

ik*x  ) 

p-j  j 

e  ) 

Vie 


f„(w)p(u>,k,z,z  )e  it0tdu>y  dk  dk 

h  O 


-cofiE 


(2.3.1) 


Here  f  (w)is  the  Fourier  transform  of  fp(t),  i.e. 

u  l'« 


fE(u» 


<2l0 


-1 


fE(t)eiWt  dt 


(2.3.2) 


The  quantity  e  is  chosen  sufficiently  large  that  the  integral  over 
0)  vanishes  identically  at  times  t  before  the  source  is  first  ex¬ 
cited,  if  k^  and  k  are  real.  Thus  the  li^e  ie  above  the  real 
axis  shouldXpass  a^ove  all  poles  and  branch  lines  of  the  inte- 
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grand.  Tlie  function  p(o>,k,z,z  )  must  be  Refined  such  that  this 
can  be  accomplished.  Fourier  transforms  u  and  0  are  defined 
analogously. 


A^direct  substitution  of  (2.3.1)  and  its  counterparts  for 
p  anu  u  into  the  linearized  equations  gives  the  following 
ordinary  differential  equations  for  and  (i: 


-poiiH>  *  -dp/dz  -  gj$ 

(2.3.3a) 

-Poiiiuj}  +  pQ0dv/dz  •  -ikp 

(2.3.3b) 

-iUp  +  p  k«u^  +  d(P0#)/dz  ■  0 

(2.3.3c) 

-i^(p  -  c2p)  +  po0[(y  -  l)g  +  dc2/dz]  ■  (c2/Tr)f£6(z  - 

*o> 

(2.3.3d) 

Here  we  have  abbreviated 
-*■  -* 

i 2  ■  w  -  k»v 


for  the  Doppler  shifted  angular  frequency  and  also  have  abbre-^ 
viated  0  and  u^  for  the  vertical  and  horizontal  componentc  of  u. 

It  turns  out  (Pierce,  1965]  that  the  above  set  of  ordi¬ 
nary  differential  equations  may  be  reduced  to  two  differential 
equations  for 

Z  -  p/p*/2  (2.3.4a) 

Y  -  ipo1/2S/«  (2.3.4b) 


These  equations  are 


where 

S  ■  (l-y/2)g/c2  -  c  1  dc/dz 


(2.3.5a) 


(2.3.5b) 


(2.3.6a) 
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(2.3.6b) 


S12  “  ^ 2  "  (Y  -  l)g2/c2  -  (g/c2)(dc2/dz) 

Sn  -  (k2/ft2)  -  cf2  (2.3.6c) 

The  remaining  quantities  of  interest  are  given  by 

£  *  p^2Z/c2  +  p1/2[(y  -  l)g  +  dc2/dz]Y/c2  +  [1/ (trift) ]6 (z  -  z  ) 
o  o  o 

(2.3.7a) 

^  -  (k/fl)p"1/2Z  -  p^1/2Y  (2.3.7b) 


The  solution  to  Eos.  (2.3.5)  is  easily  worked  out  [Pierce, 
1967]  in  terms  of  solutions  of  the  homogeneous  equations 


u,£ 


(2.3.8) 


Let  Z  and  Y  be  nonzero  solutions  which  satisfy  these  equations 
for  z  >  z  and  which  are  analytic  functions  of  u>  for  given  real 
k  and  k  and  for  all  Im  gj  greater  than  some  finite  value. 
s¥milarl$,  let  Z^,  Y^  be  a  nonzero  set  of  solutions  for  z  <  z 
which  satisfy  the  boundary  condition  Y^  «*  0  at  z  *  0.  Then  tfie 
solutions  of  the  inhomogeneous  equations  are  given  by 


z  “ 

Z  (z) 

Y .. 

■  ai'-Zo> 

u 

Yu(z)_ 

Z 

=  a  (z  ) 

V*>" 

Y  __ 

u  0 

V2) 

where 


a 


-1 


1 ,  u 


iUp1/2rrW 

o 


[z*,u  -  ^.u1 


(2.3.9a) 


(2.3.9b) 


(2.3.10) 


with  the  Wronskian  W  given  by 


W  *  (Y  Z.  -  Z  Y.)  -  Y  (0)Z.(0) 

u  l  u  &  any  z  u  Z 


(2.3.11) 
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That  W  is  independent  of  height  follows  directly  from  the  dif¬ 
ferential  equations  (2.3.8). 


It  now  follows  from  the  preceding  analysis  that  the  inte¬ 
grand  in  Eq.  (2.3.1)  is  given  by 

rPou)  n/2  t  (><*,.„)  ) 

P '  |W)  (2-3a2) 


where 


-  *V2o)1Zt(2) 


tZH(2o>  -  «V2o»Zu<2> 


z  >  z  (2.3.13a) 
o 


z  <  z  (2.3.13b) 
o 


It  should  be  noted  that  a  previous  statement  of  the  above  result 
has  a  misprint,  [p  (z  )/p  (z)]  instead  of  [p  (z)/p  (z  )]  in  the 
paper  by  Pierce  (1§68?.  0  o  o  o 


2.4  THE  GUIDED  MODE  APPROXIMATION 

The  Fourier  transform  solution  given  in  the  previous 
section  is  too  complicated  as  it  stands  for  direct  integration. 
Thus  it  is  appropriate  to  take  advantage  of  any  approximations 
which  may  be  appropriate  to  the  cases  of  primary  interest 
(namely,  waves  detected  near  the  ground  at  large  distances 
which  arrive  at  times  roughly  corresponding  to  the  lower 
atmosphere  sound  speed).  The  primary  approximation  we  make 
in  this  respect  is  the  guided  mode  approximation.  The  mathe¬ 
matical  manipulations  leading  to  this  approximation  are 
described  in  many  texts  for  waves  in  stationary  media  and  were 
first  discussed  by  Pridmore-Brown  (1962)  and  later  modified 
by  Pierce  (1965)  for  the  case  of  waves  from  a  point  source  in 
a  windy  stratified  atmosphere. 

Before  introducing  the  guided  mode  approximation,  we  first 
consider  the  symmetry  properties  of  the  factors  f£,  p,  and  of 
their  product 

I(u>,k)  *  f  (w)p(w,k,z,z  )  (2.4.1) 

L  O 

\£hiclj  appears  in  th<*  integrand  of  Eq,  (2.3.1).  We  set 

k  «  k„  +  ikT  where  k_  and  k_  are  real  vectors  and  similarly  set 

R  ju  R  X 


-28- 


to  *  wR  +  itoj.  Since  p  is  real,  we  have  (or  at  least  can  choose) 

I(w,k)*  -  I(-wR  +  iWj,  -  kR  +  ikj)  (2.4.2) 

Thus,  taking  the  complex  conjugate  of^I  is  equivalent  to  changing 
the  signs  of  the  real  parts  of  to  and  k.  Since  f„(to)  must  a 
priori  have  this  property  [fR(t)  is  real3>  it  follows  that  p 
must  also  have  this  property. 

A  final  symmetry  property  which  can  be  insured  by  appro¬ 
priate  choice  of  branch  lines  is  that,  for  real  k  and  complex  w, 

fK-w.-k.z.z^)  »  -p(to,k,z,zo)  (2.4.3) 

To  prove  this,  one  should  first  note  that  t!je  differential 
equations  (2.3.5)  are  invariant  if  to  -*■  -to,  k  -*•  -k,  Z  -*■  -Z, 

Y  •+  -Y.  Also,  the  lower  boundary  condition  is  unchanged.  This 
suggests  that  we  may  be  able  to  take 

Z(u,k)  -  -Z(-to,-k)  (2.4.4) 

While  it  would  appear  that  this  neglects  the  consideration  of  an 
upper  boundary  condition,  this  is  actually  not  the  case,  since 
any  posed  upper  boundary  condition  would  of  necessity  have  to 
be  equivalent  to  the  requirement  that  Z(o>,k)  be  analytic  for 
to_  >  e.  fhus  Eq.  (2.4.4)  merely  states  that  we  are  free  to  de¬ 
fine  Z(w,k)  for  values  of  w  in  the  lower  half  of  the  complex  to 
plane  in  such  a  manner  that  Eq.  (2.4.4)  is  satisfied.  In  what 
follows  we  consider  that  we  have  made  such  a  definition  with 
an  appropriate  selection  of  branch  lines.  Equation  (2.4.3)  then 
follows  from  the  alcove  and  (2.3.4a).  Since  is  almost  every¬ 
where  analytic  in  k,  it  would  see*  appropriate  to  consider  (2.4.3) 
to  hold  also  when  the  components  of  k  are  complex. 

Returning  now  to  the  central  task  of  deriving  the  guided 
giode  approximation,  let  us  first  interchange  the  order  of  u  and 
k  integrations  in  Eq.  (2.3.1).  It  follows  fhat  we  can  do  this  if 
we  can  find  an  e  which  does  not  depend  on  k.  The  analysis  by 
Friedland  and  Pierce  (1969)  would  apparently  indicate  that  such 
an  C  can  be  found  providing  the  atmosphere  is  inherently  stable. 
Let  us  assume  this  is  the  case.  Then  the  integration  over  k 
and  ky  is  replaced  by  one  over  k  and  0R  (polar  coordinates)  where 

k  *  k  cos8,  ;  k  *  k  sinO,  (2.4.5) 

x  k  y  ic 
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Since  the  integrand  is  clearly  periodic  in  0R  and  since  increasing 
the  value  of  0R  by  7V  is  equivalent  to  changing  the  sign  of  k, 
we  obtain 


°H-ie 


0+TT/2 


-,-iwt  g  .  . 

«  fB(u> 


Q  D8. 


-«>fie 


e-n/2 


(2.4.6) 


where 


00 

t 


Q  - 


a /  t\  ik* 
p(u,k)e 


0 

f 


kdk  - 


+  -*> 
ik»x 


p(o),k)e  kdk 


(2.4.7) 


Here  0  is  the  £ngle  (reckoned  counterclockwise)  which  the  hori¬ 
zontal  vect^r^x  makes  with  the  x  axis.  It  should  be  noted  that 
the  factor  k»x  in  the  exponent  is  kR  cos(0  -  0R)  where  R  is  the 
net  horizontal  distance  from  source  to  receiver. 


Using  Cauchy's  theorem,  we  may  show  for  cos(0  -  0R)  >  0  that 
Q  -  QR  -  QL  +  20 x  (2.4.8) 

where  QR,  QL  and  Q^.  are  contour  integrals  of  the  form 

r  ^  ikR  cos (0-0,  ) 

p(cj,k)e  k  kdk  (2.4.9) 

C 

where  the  contour  C  is  taken  as  follows: 

Qr:  C  circles  the  upper  right  quadrant  of  the  k  plane  in 
the  counter-clockwise  sense, 

(^:  C  circles  the  upper  left  quadrant  of  the  k  plane  in 
the  counter-clockwise  sense. 

Qj!  C  goes  straight  up  the  imaginary  axis  from  0  to  00 . 


The  integral  Q  is  readily  seen  to  be  relatively  small  for  large 
R  compared  to  QR  and  to  and  is  accordingly  neglected  at  the 
outset.  The  contour  integrals  QR  and  are  then  evaluated  by 
Cauchy's  method  of  residues.  It  is  anticipated  that  contri¬ 
butions  from  any  branch  lines  encircled  in  the  shrinking  pro¬ 
cess  are  of  minor  importance  at  large  R.  Thus  we  obtain  the 
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approximate  result 

Q  -  2iri{  (I  Res)R  -  (Z  Res)L> 

where  the  quantities  (Z  Res)R  and  (£  Res)^  are  the  sums  of  the 
residues  of  u 

^  ikR  008(3-0,  ) 
kp(to,k)e 

at  the  poles  in  the  right  upper  and  left  upper  quadrants,  respect¬ 
ively. 


The  integrals  over  0R  are  performed  by  the  saddle  point 
approximation  [see,  for  example,  Morse  and  r'eshbach  (1954)]  under 
the  assumption  that  the  poles  k  (w,0,  )are  much  more  slowly  varying 
functions  of  9,  than  is  cos(0-0R).  Physically,  this  assumption 
is  equivalent  to  the  neglect  of  crosswinds.  Thus  we  have  a 
typical  integral  evaluated  in  the  manner 

-ik  R  cos  (6-6.  ) 

,n(Mk)e  “ 

0-u/2 

ik  (u,0)R  7  ikR(6-ev)Z/2 

~  e  4>n(<a,0)j  e  d@k 


0+71/2 


>1/2  i(k  R  -  tt/4)  +iPh(k  )/2 
n  n 

e  e 

/ 


(2.4.10) 


where  the  pole  location  is  taken  at  0R  ■  0.  Here  Ph(k^)  is  the 
phase  of  k^  (between  0  and  ir) .  “  “ 


Thus  Eq.  (2.4.6)  becomes 

,1/2 

,r  -  \! ±21 — i 

p  =  27fi| 


«+ie  n 

2tt  ' 

f  vw>) 

|  R  |  R 

-«>fie  n 

l  n 

-  wt  -  tt/4]  iPh(k  )/2 

e  n  4>  dto 
n 


(2.4.11) 


where  9  is  the  residue  of  p  at  k  =  k  (10, 0)  and  S  is  1  if  k 
corresponds  to  a  pole  of  (?  in  the  upper  right  quadrant;  -1  for 
the  upper  left  quadrant.  It  is  assumed  throughout  the  preceding 
analysis  that  oj  has  a  nonzero  imaginary  part.  The  k  in  general 
will  be  complex  numbers  with  positive  imaginary  parts. 
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* 


We  may  let  e  0  as  long  as  the  k^Oito  +  itoj,0)  have  non¬ 
negative  imaginary  parts  as  to  +  0  from  above.  we  assume  this 
is  the  case,  since  otherwise  the  ambient  atmosphere  would  be 
unstable.  It  is  necessary  to  consider  the  possibility  (since 
it  is  a  certainty  in  the  absence  of  dissipation)  that  some  of 
the  k  may  be  real  when  to  is  real.  However,  we  wish  to  avoid 
spurious  terms  which  correspond  to  poles  lying  below  the  real 
k  axis  when  to^  >  0.  This  can  be  accomplished  by  simply  re¬ 
quiring  that,  for  real  to  and  real  k  ,  only  those  terms  be 
included  for  which  n 

3k  /3to  >  0  '  (2. A. 12) 

n  — 

(which  is  equivalent  to  the  reauirement  that  the  group  velocity 
be  positive.) 

At  this  point  we  make  use  of  the  symmetry  properties  of  p. 

The  integral  over  u  may  be  separated  into  one  from  -o'  to  0  and 
one  from  0  to  00 .  The  former  is  then  subjected  to  a  change  of 
variable  to  +  -to.  One  can  readily  show  from  (2.3.2)  that  the 
former  must  be  just  the  complex  conjugate  of  the  latter.  Thus 

^  i[k  R-tot-ir/4] 

p  •  Re  f  (to)  l  A  (to,0)e  n  dw  (2.4.13) 

l  n  n 

0 


where 


A  =  4iri 
n 


1/2,  iPh<kn>/2 

S  e  <p  k 

n  n  n 


(2.4.14) 


The  pole  locations  are  assumed  to  be  piecewise  continuous 
functions  k  (to,0)  of  to.  Thus  we  can  interchange  the  sum  and 
integral  innEq.  (2.4.13),  obtaining 

p  *  I  pn  (2.4.15) 

n 

where  p^  is  the  contribution  from  the  nC^  guided  mode,  given  by 
r  /s  i [k  R-tot-ir/4] 

p  =  Re  f,,(to)A  (w,0)e  n  dw  (2.4.16) 

n  j  t  n 

The  integration  limits  extend  over  a  range  of  positive  w  for  which 
kn(w,0)  is  defined.  It  should  be  noted  that  the  kR  are  in  general 


-32- 


complex.  Their  imaginary  parts  must  be  positive,  but  (at  least 
formally)  their  real  parts  could  be  either  positive  or  negative. 

In  the  terminology  used  by  Friedman  (1967),  those  modes  with  a 
non-zero  imaginary  part  of  k  are  called  leaky  modes.  It  is 
possible  that  a  given  mode  may  be  leaky  over  a  given  range  of 
co  and  then  be  non-leaky  (real  kfl)  over  another  range  of  w. 

It  is  tempting  to  discard  all  leaky  modes  or  leaky  portions 
of  modes  at  the  outset  with  the  glib  statement  that  at  suffi¬ 
ciently  large  P.  they  are  negligible.  However,  just  whether  or 
not  they  are  negligible  depends  on  the  magnitude  of  Im(k  ).  Since 
we  are  primarily  interested  in  propagation  to  distances  of  the 
order  of  10,000  km,  the  values  of  Im(k  )  should  be  greater  than, 
say,  10  3  km  1  if  we  are  to  consider  a  leaky  mode  to  be  negligible. 
We  might  term  modes  where  Im(k  )  is  less  than  this  value  as 
slowly  leaking  modes. 

Just  when  slowly  leaking  modes  are  important  in  waveform 
synthesis  is  intimately  related  to  the  nature  of  the  topmost 
region  of  the  assumed  model  atmosphere.  If  the  top  of  the  atmo¬ 
sphere  is  adjacent  to  a  rigid  surface  or  is  bounded  by  a  free 
surface,  then  there  is  nowhere  for  energy  to  leak  and  there  are 
no  leaking  modes.  On  the  other  hand,  as  was  originally  observed 
by  Press  and  Harkrider  (1962),  if  the  uppermost  region  of  the 
atmosphere  is  taken  as  an  isothermal  half-space,  then  there  are 
certain  regions  of  the  k  vs.  u>  (  for  fixed  6  )  plane  (with  k  and 
w  real)  in  which  the  dispersion  curves  for  non-leaking  modes 
cannot  penetrate.  If  a  mode's  dispersion  curve  apparently  ter¬ 
minates  at  the  edge  of  such  a  region,  then  it  would  seem  that 
the  extension  of  the  mode  into  such  a  region  would  be  a  leaky 
mode.  None  of  these  three  types  of  models  is  too  fair  a  repre¬ 
sentation  of  the  upper  atmosphere,  but  one  may  argue  that,  if 
the  major  portion  of  the  energy  is  channeled  near  the  ground, 
then  the  variations  in  the  model  atmosphere  above  150  km  should 
have  relatively  little  effect  on  the  actual  waveform.  Numerical 
studies  such  as  described  elsewhere  in  this  report  would  seem 
to  support  this  conclusion. 

The  discussion  given  above  would  suggest  that  we  may  avoid 
the  consideration  of  leaky  modes  by  adopting  a  suitable  model  of 
the  uppermost  portion  of  the  atmosphere.  Just  what  model  is 
adopted  should  probably  be  a  compromise  between  what  is  known 
about  the  upper  atmosphere  and  the  desire  to  minimize  the  con¬ 
tribution  from  the  islowJv  leaking  modes.  In  what  follows,  we 
assume  such  a  model  has  been  selected  and  accordingly  consider 
only  real  non-leaking  modes. 

Since  we  are  interested  primarily  in  interpreting  data  on 
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waves  arriving  at  tines  corresponding  to  group  velocities  roughly 
equal  to  the  sound  speed  in  the  lower  atmosphere,  it  is  clear  that 
we  may  discard  at  the  outset  any  inodes  or  portions  of  modes  which 
give  negligible  contributions  at  such  times.  Since  the  contri¬ 
bution  to  a  mode  at  time  t  comes  primarily  from  frequencies  near 
that  at  which  w  satisfies 


li 


3k 
_ n 

3w 


(2.4.17) 


it  would  seem  appropriate  to  consider  only  those  modes  where 
3k  /3u>  is  of  the  order  of  1/c  where  c  is  a  representative  sound 
speed.  To  this  purpose,  the  following  theorem  derived  by  Pierce 
(1965)  for  nor.-leaking  modes  may  be  of  assistance. 


j{ttY2  +  (k2/Q*)Z2}dz 

3k  b  0 _ 

3u>  *  00 

|(i?(k*v/k)Y2  +  ktiT3Z2}dz 
G 


(2.4.18) 


The  fact  that  wind  speeds  are  small  compared  to  the  sound  speed 
suggests  that  we  may  estimate  the  magnitude  of  3k/3u>  for  cases 
of  interest  with  the  neglect  of  wind  velocity.  In  this  limit, 
the  above  expression  becomes 


3k  -v  k  ,  w2  2 
**  Q)  k  a 


(2.4.19) 


where  a2  is  positive.  Thus  3k/3w  is  positive  onlj  if  k  >  0  (given 
w  >  0).  Furthermore,  the  group  velocity  (3k/3w)  ,  if  positive, 

should  always  be  less  than  the  phase  velocity.  Thus,  we  may 
restrict  our  analysis  to  modes  where  k  >  0  and  where  w/k  is  greater 
than,  say,  half  the  sound  speed  at  the  ground.  It  would  cer¬ 
tainly  seem  appropriate  to  discard  all  modes  where  k  is  negative 
or  where  u/k  is  less  than  the  maximum  wind  speed,  given  that  the 
maximum  wind  speed  is  small.  (The  reasoning  here  may  be  some¬ 
what  circular  since  we  initially  neglected  the  winds  to  arrive 
at  this  deduction.  However,  a  more  detailed  examination  seems 
unwarranted  at  the  present  stage.) 


Let  us  next  examine  the  quantity  A  (w,0)  in  Eq.  (2.4,14) 
under  the  assumption  that  k  is  positive,  real,  and  greater  than 
uu  times  tae  maximum  wind  speed.  The  poles  of  p  which  satisfy 
these  requirements  must,  by  Eq.  (2.3.12),  correspond  to  zeros  of 
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Y  (0) , .when  considered  as  a  function  of  k.  The  residue  $  of  p 
aH  such  a  pole  is  given  by  (2.3.12),  only  with  Y  (0)  replaced  by 
3Y  (0)/3k.  The  latter  derivative  has  been  shown^y  Pierce  (1965) 
to^e  given  by 


-2 


{ft(k«v/k)Y2  +  kcjft**3Z2}  dz 


3Yu(0)/3k 


zu(0) 


(2.4.20) 


Furthermore,  since  Y  (0)  is  0  at  a  pole,  the  upper  and  lower 
boundary  conditions  are  both  satisfied  when  k  *  k  and  we  may 
discard  the  subscripts  £  and  u.  Thus  we  have  u 


*n"  " 


^Pq(2) 


1/2 


i  t2U0)  “  gY(zQ)]Z(z) 


27ri2(z  )  “ 
o 


(2.4.21) 


j{u(k#v/k)Y2  +  kuff  3Z2}  dz 


where  the  direction  of  k  is  6  and  its  magnitude  is  k^O*),©). 
If  Eq.  (2.4.21)  is  substituted  into  (2.4.14),  we  find 


A 


r  p0(z)  i 

1/2 

-  8trk 

p0te0> 

t 

11 

R 

x  U(z0)  -  gY(zo)]Z(z) 


fi(z  )  00 
o 


0 


(n(k*v/k)Y2  +  kaif  3Z2}dz 

(2.4.22) 


It  should  be  recalled  that  the  expression  for  a  guided  mode  is 
given  by  Eq.  (2.4.16),  The  quantities  k  (w,0)  are  zeros  of  Y  (0) 
and  it  is  assumed  that  we  need  only  consider  contributions  from 
mode  segments  where  U  is  positive  for  all  z  and  where  k^  >  0. 

The  only  remaining  piece  of  analysis  to  complete  our  formal 
derivation  is  the  derivation  of  an  explicit  expression  for  fp(u>). 
If  we  insert  Eqs.  (2.1,5)  into  Eq.  (2.3.2),  we  find 


“  (2")'lVn'3lPo(zo)/Po(U32/\|el“t 


tlKI(t'/lXoYKT3l)dt,dt 


0 


0 
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or,  after  an  integration  by  parts, 


ito 


From  Eq.  (2,1.7),  we  find 
00 

dt  ’ 

0 

'fhus 


P  its) 

s 


£e(“>  ‘  -Cirt-^f^S^/Poto)]27 +  ‘tVraV'1]2 

(2.4.23) 

The  symbols  in  this  expression  are  as  defined  in  Sec.  2.1. 


2.5  SUMMARY  OF  THE  GUIDED  MODE  SOLUTION 

For  convenience  of  referral,  the  solution  derived  in  the  pre¬ 
vious  sections  is  summarized.  First,  we  have  the  wave  as  a  sum 
of  guided  modes,  the  acoustic  overpressure  p  being  given  by 

P  =  £  Pn(E,6,Zo,z,t)  (2.5.1) 

n 

where  the  arguments  of  are 

R  =  horizontal  distance  from  source 

6  ■  azimuth  angle  of  observer  (counter-clockwise  in 
horizontal  plane) 

zq  *  height  of  burst 

z  =  height  of  observation  location 

t  «  time  of  observation 

In  addition  p  depends  on  the  sound  speed  and  wind  velocity 
profiles,  c(7^  and  v(z),  and  on  the  yield  Y  of  the  explosion 
in  KT. 

A  particular  guided  mode  wave  is  given  as  an  integral  of 
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the  form 


’ 

p  *  D  cos  [tot  -  k  R  +  el  dto 
n  n  n 


(2.5.2) 


where  the  integration  extends  over  all  positive  frequencies  to 
for  which  a  real  k  (to,0)  is  defined.  The  quantifies  D  and  e 
are  real  functions1  of  to.  W a  may  define  D  as  ijf^A^I  and  take  e 
as  tt/4  minus  the  pahse  of  ±f  A  ,  The  choice  of  sign  depends  on 
just  which  real  factors  are  incorporated  into  1)^. 

The  particular  forms  which  we  may  take  for  and  e^  are 


D 
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P0U) 


p(zn) 

o  o 


1/2 


^i/2 


2k 


ttR 


lPo<zo)/Pa^»2/Vs 

1“2  +  <Vra3ts>"2> 


,  [Hz)  -  gY(z  )]Z(z) 

1  _ o _ o _ 

X  ft(z  )  “ 

o  } 

{Slk*v/k)Y2  +  kaif  3Z2}  dz 

0 


(2.5.3) 


e  *  5tr/4  +  2  x  phase  [to  +  i(X  Y^^t  ) 

O  Kx  S 


(2.5.3) 


where 

Pg  =  1.61  x  34.45  x  103  dynes/cm2 

L  =  1  kn 
s 

t  =0.48  sec 

g 

A  -  [c(0)/c(z  )][p  (0)/P  (z  )]1/3 
O  0  0  o  o 

k  =  k  (w,0) [e  cos  0  +  e  sin  0] 
n  ’  x  y 


The  functions  Y  and  z  are  eigenfunctions  of  two  coupled  homo¬ 
geneous  ordinary  differential  equations  and  k  (w,0)  may  be  con¬ 
sidered  the  corresponding  eigenvalue. 


To  introduce  the  nomenclature  used  in  the  discussion  of  the 
computer  program,  we  set 
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(2.5.4a) 

(2.5.4b) 


D  =  (1/R1/2)(AMPLTD) 

n 

AMP  LTD  «  (FACT)  (Y^3k1/2/u)  j  S  (wX^3)  |  (AMP) 

FACT  -  [4/2TT)1/2]c(0)[po(z)/po(Zo)]1/2[po(zo)/po(0)]1/3 
lZ(z  )  +  gY(z  ) ]Z(z) 

AMP  - - - - 2 - - - 


,2i2(z  )c(z  ) 
o  o 


{ft  (k*v/k)Y2  +  uikft"3Z2}dz 

0 


(2.5.4c) 


(2.5. 4d) 


iwP  L 

S(«)  -  - -  ■"  -  -■  (2.5.4e) 

[u  +  it  1 ] 2 


PllASQ  -  e  =  3it/4  -  Phase  (S(ojX  Y^3))  (2.5,4f) 

O  K.T 

The  subscript  n  on  various  quantities  is  omitted  for  brevity. 

in  terms  of  the  quantities  introduced  above,  the  contribution 
from  the  n-th  guided  mode  becomes 

p  -  R~1/2  AMPLTD  cos  [w(t  -  R/v  )  +  PHASQ]  dw  (2.5.5) 

n  J  p 

where 

v  =  w/k  (2.5.6) 

P 

is  the  phase  velocity  (varying  with  w)  of  the  guided  mode. 


2.6  THE  MULTILAYER  METHOD 

In  order  to  compute  the  dispersion  curves  k  (w,0)  [or, 
equivalently,  phase  velocity  v  vs.  w]  for  the  guided  modes 
and  the  functions  Y  and  Z,  it  Ss  convenient  to  formally  replace 
the  actual  atmosphere  by  a  multilayer  model,  in  which  the  model 
is  comprised  of  a  discrete  number  of  layers,  each  having  con¬ 
stant  temperature  and  wind  velocity.  Such  a  technique  is  fairly 
common  in  the  numerical  solution  of  wave  propagation  problems 
and  dates  at  least  as  far  back  as  Haskeli  (1950).  The  multi- 
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layer  method  has  some  shortcomings  and  has  been  criticized 
by  various  authors.  It  is  important  that  the  reader  realize 
that  the  method  is  only  a  numerical  integration  technique. 

We  do  .not  approximate  the  atmosphere  by  a  multilayer  model  at 
the  outset  but  only  use  this  as  a  device  to  evaluate  the  quan¬ 
tities  needed  for  numerical  evaluation  of  the  solution  summarized 
in  the  previous  section.  In  actual  fact*  any  given  multilayer 
atmosphere  would  most  likely  be  unstable  for  disturbances  of 
sufficiently  short  wave  length.  However,  for  any  given  k  and  u, 
we  may  always  pick  a  model  (by  simply  including  enough  layers) 
that  the  numerical  solution  of  the  homogeneous  residual 
equations  (2.3.8)  is  in  good  agreement  with  the  result  which 
might  be  obtained  by  using  a  given  continuous  atmosphere.  This 
has  been  demonstrated  previously  by  one  of  the  authors  [Pierce, 
1966],  It  may  be  argued  that  the  multilayer  method  is  not 
the  most  efficient  numerical  method,  but  the  authors  believe 
that,  from  the  standpoint  of  coding  the  problem  for  numerical 
computation,  the  multilayer  method  is  generally  to  be  preferred. 

For  the  purpose  of  making  the  organization  of  the  compu¬ 
tation  scheme  as  simple  as  possible,  it  is  assumed  that  one 
has  picked  a  multilayer  model  of  sufficient  detail  that  it 
suffices  for  all  numerical  computations  necessary  to  evaluate 
a  given  waveform.  The  same  model  will  then  be  used  throughout 
the  computation.  Guidelines  for  selecting  such  a  model  have 
been  discussed  by  Pierce  (1967)  and  by  Vincent  (1969) .  The 
user,  if  he  so  wishes,  may  establish  his  own  guidelines  by 
numerical  experiment. 


In  multilayer  computations,  it 
quantities  and  <J>„  rather  than  Z 
not  in  general  continuous  at  layer 
and  are  defined  as 

VcY 

<i>2  *  gY/c  -  Z/c 


is  convenient  to  deal  with 
and  Y  since  the  latter  are 
boundaries.  The  functions 


(2.6.1a) 

(2.6.1b) 


These  can  be  shown  from  Eq.  (2,3,8)  to  satisfy  the  residual 
equations 


(»•  — 

*i 

A11 

A12 

'1 

u 

dz 

*2 

r= 

_A21 

A22 

CSI 

■e> 

where  the  elements  of  the  matrix  [A]  are  given  by 


(2.6.2) 
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An  *  gk2/ft2  -  yg/(2c2)  (2.6.3a) 
A12  -  1  -  c2k2/fi2  (2.6.3b) 
A2i  -  g2k2/tt2c2  -  <l2/c2  (2.6.3c) 
A22  "  “All  (2.6.3d) 


It  follows  from  the  form  of  these  coefficients  that  and  $2  oust 
be  continuous  with  z  even  when  c  and  v  are  discontinuous.  In  any 
given  layer,  the  matrix  [A]  is  constant. 


One  restriction  we  place  on  the  multilayer  atmosphere  is 
that  the  top-most  layer  (bounded  below  by  z  «  z^)  be  an  iso¬ 
thermal  half space  with  constant  winds.  The  only  solution  of 
Bq.  (2.6.2)  which,  for  real  k,  is  analytic  in  U)  for  z  >  zT  for 
all  co  for  which  Ira(u)  >  0,  and  which  vanishes  as  lm(to)  -►  * 
(these  conditions  are  equivalent  to  the  causality  condition) 
is  of  the  form 


V 

1 

I 

> 

t-* 

_ I 

*  D 

_  A11  +  ‘ 

-G(z  -  z  ) 

e  (z  >  zT) 


(2.6.4) 


where 


C’  '  Ah  +  A12A21  <2-6-5) 

with  the  coefficients  A  appropriate  to  the  upper  half  space. 

The  phase  of  G  is  chosenJsuch  that  G  is  analytic  in  the  upper 
half  of  the  to  plane  and  such  that  the  phase  of  G  approaches  0 
as  ImOo)-*®.  The  quantity  D  in  the  above  expression  is  any  con¬ 
venient  constant.  A  necessary  consequence  of  this  is  that  the 
phase  of  G  must  be  0  when  to  is  real  on  all  regions  of  the  real 
to  axis  where  G2  >0.  If  G2  <  0,  the  phase  of  G  could  be  either 
tt/2  or  -tt/2,  depending  on  which  choice  is  compatible  with  the 
requirement  that  G  is  analytic  for  Im(to)  >  0.  It  should  be 
noted  that  G  has  branch  points  on  the  real  axis. 

The  values  of  <P^  and  <J>2  at  lower  values  of  z  are  found  by 
integrating  Eqs.  (2.6.2)  down  from  z  =  z^  with  (2.6.4)  as  starting 
conditions.  Since  the  equations  are  linear,  we  can  determine  a 
transmission  matrix  [R]  such  that 
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(2.6.6) 


ro 

"V  ” 

1 

*  [R] 

1 

<*> 

z  =  0 

__2  _ 

L  2„ 

where  [R]  is  independent  of  the  values  of  0^  and  ^  at  2  *  z^. 

The  condition  that  4>^(0)  =  0  is  therefore 

F(to,k)  -  A12R11  -  (G  +  An)R12  =  0  (2.6.7) 

where  G,  A^  -,  and  A^2  are  quantities  appropriate  tcj>  the  upper 
halfspace.  The  function  F(to,k)  for  general  oi  and  k  is  called 
the  normal  mode  dispersion  function.  It  is  defined  hj»re  for  all 
values  of  to  in  the  upper  half  plane  and  for  all  real  k. 

If,  as  implied  previously,  we  restrict  our  attention  to  inodes 
where  w  and  k  are  real,  then  the  matrix  [R]  will  be  real  and  G 
must  be  real  if  Eq.  (£.6.7)  is  to  be  satisfied.  This  limits 
the  region  in  the  w,  k  space  where  one  need  search  for  roots  of 
the  normal  mode  dispersion  function.  Since  we  need  only  con¬ 
sider  points  such  that  G  is  real,  we  can  simply  say  that  the 
normal  mode  dispersion  function  does  not  exist  if  this  condition 
is  not  satisfied.  We  can  also  say  that,  if  <i>  and  $2  describe 
a  non-leaking  guided  mode  (which  is  the  only  type  we  consider) , 
then  and  4>2  must  satisfy  an  upper  boundary  condition  of 
decaying  exponentially  with  increasing  z  in  the  upper  half  space. 

One  of  the  chief  advantages  of  the  multilayer  approximation 
is  that  one  can  formulate  a  straightforward  algorithm  which  com¬ 
putes  £he  normal  mode  dispersion  function  F(to,k)for  gi^en  real 
to  and  k.  Thus  the  computer  can  formally  consider  F(to,k)  as  a 
known  function  in  obtaining  dispersion  curves.  The  details  of 
the  computation  of  F(w,k)  are  discussed  in  the  description  of 
the  program's  subroutines.  [See  Appendix  B.3 


2.7  TABULATION  OF  DISPERSION  CURVES 

One  of  the  principal  difficulties  in  coding  the  numerical 
synthesis  of  waveforms  was  that  of  obtaining  a  feasible  method 
for  tabulating  the  dispersion  curves  of  the  guided  mode,  By 
dispersion  curves,  we  here  mean  the  graphs  of  phase  velocity 

v  (w, 6)  versus  to  for  fixed  0,  where  v  satisfies 
P  P 

F(to,k)  -  0  (2.7.1) 
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with 


* 


k  *  (co/v  )  [ e  cos  6  +  e  sin  0]  (2.7,2) 

p  x  y 

•f  ■+ 

We  denote  the  value  of  F(u),k)when  k  is  given  by  Eq.  (2.7.2)  as 
Fq(u5,v  ).  Thus  we  wish  to  tabulate  curves  in  the  v  ,  w  plane 
along  Shich  ^ 

F0(w>Vp)  “  0  (2.7.3) 

given  a  computational  scheme  which  either  computes  Fg  for  given 
u  and  v  or  else  tells  us  that  a  real  Fg(u),v  )  does  not  exist 
for  sucB  values.  ^ 

Such  a  tabulation  of  dispersion  curves  is  complicated  by 
the  fact  that  it  requires  some  care  to  insure  that  we  do  not 
mix  modes.  For  example,  if  (uv. ,  v  )  and  (u^ are  two  points 
at  which  Ffl  ■  0,  it  is  difficult  ti  determine  whether  or  not 
these  points  both  lie  on  the  same  curve  or  on  different  curves. 

An  obvious  goal  is  to  eliminate  the  need  for  human  intervention 
in  answering  such  questions.  The  manner  in  which  we  accom¬ 
plished  this  may  be  of  some  intrinsic  interest  as  analogous 
problems  occur  in  many  other  contexts. 

We  specify  a  rectangular  region  of  the  v  versus  w  plane  and 
consider  a  dense  rectangular  array  of  pointsPin  this  region. 

Each  point  lying  on  the  same  row  corresponds  to  the  same  value 
of  v  and  each  point  lying  on  the  same  column  corresponds  to 
the  iame  value  of  us.  For  each  such  point  we  compute  the  sign, 

+  or  -  (or  X  if  F((i),v  )  does  not  exist),  of  the  normal  mode 
dispersion  function.  ^One  can  visualize  such  a  computation  as 
being  presented  in  the  form  of  a  picture  (which  we  term  a  table) 
analogous  to  what  one  sees  on  a  television  screen.  (See  Fig.  2-3..} 
In  such  a  picture  one  may  readily  perceive  (providing  the  den¬ 
sity  of  points  is  sufficiently  great)  clear-cut  regions  of  the 
v  versus  oj  plane  where  the  sign  of  Fg  is  +,  regions  where  Fg 
il  negative,  and  regions  where  Fq  does  not  exist  (all  X’s). 

The  dispersion  curves  would  then  correspond  to  the  more  or  less 
sharply  defined  lines  which  separate  regions  of  all  +'s  from 
regions  of  all  -'s.  The  technique  used  by  the  authors  was  (1) 
to  systematically  and  selectively  increase  the  density  of  con¬ 
sidered  points  to  such  an  extent  that  all  dispersion  curves  in 
the  rectangular  region  could  be  clearly  perceived  and  (2)  to  use 
the  picture  array  as  a  guide  for  systematically  tabulating  the 
dispersion  curves  for  each  given  mode  and  to  define  starting 
brackets  for  homing  in  on  particular  points  on  the  curves. 
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Sample  t*ble  of  normal  mode  dispersion  function  signs. 
An  X  means  that  the  function  does  not  exist  at  that  point  in  the 
phase  velocity-frequency  plane. 
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Although  the  above  discussion  may  seem  to  be  expressed  in 
humanistic  terns,  the  actual  computation  is  carried  out  by 
the  machine  without  human  intervention. 

One  subsidiary  problem  which  had  to  be  solved  was  that  of 
determining  the  criteria  for  when  the  density  of  points  in  the 
"picture*'  is  sufficiently  great  that  all  of  the  dispersion  curves 
in  the  rectangular  region  may  be  clearly  defined.  For  this 
purpose  the  following  theoretical  conjectures  were  of  con¬ 
siderable  utility: 


1.  No  two  dispersion  curves  may  intersect  each  other. 

2.  As  long  as  v  is  greater  than  the  maximum  wind  speed, 
dVp/dw  <  0  f8r  any  dispersion  curve. 

The  first  conjecture  follows  from  the  fact  that  if  two  curves 
cross  at  a  point  (w,v  )  then  one  must  have  F„  ■  0,3Fq/8w  *  0 
dFg/dv  *  0  all  simultaneously  satisfied  at  this  point.  To 
locatepsuch  a  point,  we  would  have  to  solve  three  equations 
for  the  two  unknowns  ui  and  v  .  Since  we  have  more  equations 
than  unknowns ,  it  would  be  h?ghly  unlikely  that  such  a  point 
could  be  found.  To  date,  we  have  not  found  any  case  of  this 
happening,  although  the  separation  between  adjacent  curves  can 
be  very  small. 


The  second  conjecture  follows  from  Eq.  (2.4.18).  Using  the 
fact  that  Vp  *  w/k,  we  find,  after  some  algebra,  that 


-1 

k2 


00 

jft2Y2  dz 

0 _ 

00 

j{kcif3Z2  +  ft(k«v/k)Y2J  dz 
0 


(2.7.4) 


This  is  clearly  negative  as  long  as  the  denominator  is  positive. 
However,  if  the  denominator  is  negative,  then  Eq.  (2.4.18) 
would  require  the  group  velocity  to  be  negative.  If  the  group 
velocity  is  negative,  then  the  discussion  associated  with  Eq. 
(2.4.12)  implies  that  the  mode  should  not  contribute  to  the 
waveform.  In  any  event,  the  denominator  in  Eq.  (2.7,4)  must 
be  positive  for  no  winds  and  would  most  likely  be  positive  if 
the  winds  are  sufficiently  weak, (Throughout  this  discussion  we 
consider  ft  >  0  for  all  z.)  Thus,  while  we  have  not  succeeded  in 
giving  a  truly  rigorous  proof  of  either  of  these  conjectures, 
they  seem  likely  to  always  hold  in  all  cases  of  interest. 
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With  the  acceptance  of  the  two  conjectures  discussed  above, 
we  may  regard  a  pictorial  array  as  being  sufficient  to.  resolve  the 
modes  if  it  indicates  no  apparent  violations  of  the  two  conjectures. 
If  it  does  indicate  an  anomaly,  we  simply  add  more  points  to  the 
array  (i.e.,  increase  the  density  of  points)  until  the  anomaly 
disappears.  The  method  of  adding  points  should  be  formulated  in 
such  a  manner  that  one  does  not  go  overboard,  as  the  signs  of 
the  normal  mode  dispersion  function  will  in  general  occupy  *  large 
amount  of  storage  space  in  the  machine.  The  method  utilized  in 
the  program  seems  to  be  fairly  foolproof  and  vet  reasonably  con¬ 
servative  in  the  number  of  points  added  to  correct  apparent 
anomalies.  Further  details  may  be  found  in  the  discussion  of 
the  program's  subroutines. 

As  an  example  of  how  the  table  expansion  process  works  in 
practice,  suppose  that  the  region  of  the  to,y  plane  considered 
is  that  where  .2  v  .6  km/sec,  .005  <  it? <  .1  rad/sec. 

The  first  tabulation's  made  with  900  points,  corresponding  to 
30  equally  spaced  values  of  to  and  30  equally  spaced  values  of 
v  .  For  a  particular  0  and  a  particular  model  atmosphere,  the 
rlsult  (which  may  at  the  user's  discretion  be  printed  out  by 
the  machine)  is  shown  in  Fig.  2-3.  We  arbitrarily  number  the 
modes  starting  in  the  lower  left  corner  of  the  table  and  going 
up  towards  the  upper  right  comer.  Note  that  modes  3  and  4 
almost  touch  near  (0.0214,  0.324),  modes  4  and  5  seem  to 
disappear  near  (0.0443,  0.320),  and  other  modes  seem  to  vanish 
as  well.  In  order  to  get  rid  of  these  anomalies,  the  computer 
judiciously  adds  new  rows  and  columns.  The  table  in  Fig.  2-4  is 
the  result.  Note  that  the  to  coordinates  of  the  rows  and  the 
phase  velocity  coordinates  of  the  columns  are  not  equally 
spaced  in  the  expanded  table. 


2.8  OTHER  NUMERICAL  TECHNIQUES 

The  result  of  the  dispersion  curve  computation  is  a  tabulation 
(stored  in  the  machine)  of  points  (w,v  )  which  lie  on  the  n-th 
mode's  dispersion  curve  and  which  describe  that  portion  of  the 
curve  which  lies  in  some  prespecified  rectangular  region  of  the 
(to,v  )  plane.  Some  specified  number  of  modes  are  tabulated. 

The  Size  assumed  for  the  rectangular  region  is  an  inherent 
limitation  on  the  computation  and  largely  determines  the  limits 
of  integration  used  in  the  evaluation  of  (2.5.5).  Since  these 
limits  are  not  the  true  limits  of  the  mode,  an  additional 
approximation  is  implied  by  this  technique.  There  is  some  degree 
of  "art"  involved  in  the  selection  of  this  rectangular  region 
and  in  the  interpretation  of  waveforms  computed  with  such  a 
truncation. 
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Figure  2-4,  An  expanded  version  of  the  table  in  Fig,  2-3  created  by 
the  INFRASONIC  WAVEFORMS  code.  Rows  and  columns  have  been  added  so 
that  the  modes  are  distinct. 
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Let  v(u))  be  the  phase  velocity  as  a  function  of  frequency  for, 
a  given  node  which  is  tabulated  at  to  *  to^,  . ;.w^;  the  cor¬ 
responding  values  of  y  being  denoted  by  v. ,  ,  .(v„.  uFor  each,  of 
the  values  the  wavenumber  k.  ■  to./v.  is  computed  and.  then 
the  quantities  AMPLTD  and  PHASQ-in  Eqs,  (2.5*4}  are  computed. 

The  values  of  AMP  LTD,  k,  and  P11ASQ  at  values  of  to  between 
neighboring  are  approximated  by  linear  interpolation,  following 
a  technique  introduced  by  Aki  (1960)  for  numerical  integration  over 
oscillatory  integrands.  This  defines  the  integrand  at  all  values 
of  to  between  to^  and  i»Xj.  The  resulting  integral  may  then  be 
expressed  as  a  sum  of  N  -  1  terms,  each  term  involving  elementary 
functions,  with  no  further  approximations.  The  evaluation  of 
this  sum  then  leads  to  an  approximate  value  of  pn  for  given  t  and  R. 

The  Aki  technique  described  above  for  numerical  integration, 
although  approximate,  would  appear  to  be  a  considerable  improve¬ 
ment  over  the  method  of  stationary  phase,  commonly  used  in  wave 
propagation  computations.  It  would  appear  that  the  stationary 
phase  approximation  would  probably  give  grossly  erroneous  results, 
in  view  of  the  fact  that  some  of  the  modes  are  very  weakly  dis¬ 
persive.  We  'should  point  out  that  the  technique  used  here  was 
suggested  to  the  authors  by  Harkrider's  paper  (1964). 

A  shortcoming  of  the  computation  scheme  is  that  the  resulting 
solutions  formally  violate  the  causality  requirement.  Although 
causality  is  guaranteed  by  the  Fourier  transform  solution,  the 
guided  mode  solution,  being  an  approximation,  may  not  preserve 
this  property.  Furthermore,  the  truncation  of  integration  limits 
will  tend  to  amplify  the  non-physical  waveform  predicted  at  times 
before  the  true  wave  should  actually  arrive.  However,  at  moderate 
and  large  distances,  the  noncausal  portion  of  the  wave  should  have 
relatively  small  amplitudes.  This  is  borne  out  by  the  numerical 
computations.  The  authors  believe  that,  with  proper  care  in  the 
selection  of  input  parameters,  the  scheme  described  here  should 
give  a  fair  representation  of  the  dominant  portion  of  the  wave¬ 
form  for  low  altitude  observation  of  waves  from  low  altitude 
explosions  -  providing,  of  course,  that  the  stratified  model  for 
the  atmosphere  is  adequate. 


Chapter  III 

USER’S  GUIDE  TO  INFRASONIC  WAVEFORMS 

3.1  INTRODUCTION 

INFRASOHIC  WAVEFORMS  is  a  digital  computer  program  written  in 
FORTRAN  IV  for  the  IBM  300  system  at  M.I.T.  A  slightly  modified 
version  for  the  IBM  7094  is  currently  in  operation  at  the  Air 
Force  Cambridge  Research  Laboratories  in  Bedford,  Massachusetts. 

The  purpose  of  the  program  is  to  give  a  theoretical  prediction  of 
the  acoustic  pressure  waveform  which  would  be  recorded  at  large 
horizontal  distances  (500  km  to  10,000  km)  from  a  low  to  moderate 
altitude  thermonuclear  explosion  in  the  atmosphere.  The  program 
represents  a  substantial  extension  to  an  earlier  program, 

INFRASONIC  MODES,  written  by  A.  Pierce  (1966). 

In  the  program,  the  atmosphere  is  assumed  to  consist  of  a 
number  (possibly  as  large  as  100)  of  horizontal  layers,  each 
having  constant  temperature  and  wind  velocity.  The  temperatures, 
wind-velocity  magnitudes,  and  wind-velocity  directions  are  not 
necessarily  assumed  to  be  the  same  in  each  layer.  Such  a  multi¬ 
layer  atmosphere,  if  judiciously  chosen,  may  be  expected  to  give 
a  reasonable  approximation  to  any  continuously  stratified  atmo¬ 
sphere  in  so  far  as  the  calculations  of  waveforms  are  concerned. 

It  is  the  authors’  intent  that  the  program  be  written  in  such 
a  form  as  to  facilitate  use  by  anyone  having  access  to  a  large 
digital  computer.  It  is  written  in  a  manner  such  that  it  should 
not  be  too  difficult  to  modify  for  application  to  similar  problems 
or  for  use  in  other  computer  installations.  The  fact  that  we  were 
able  to  modify  the  M.I.T.  version  for  the  AFCRL  computer  with  only 
a  moderate  expenditure  of  time  attests  to  the  latter. 

The  key  to  insuring  that  any  program  be  amenable  to  wide-spread 
usage  is  documentation.  This  report  represents  one  such  attempt 
to  provide  such  documentation.  In  addition,  the  program  is 
written  with  a  predominance  of  COMMENT  statements.  A  listing  of 
the  program  is  given  in  Appendix  B.  The  comments  at  the  be¬ 
ginning  of  each  subroutine  attempt  to  explain  the  function  of 
each,  and  its  purpose  in  relation  to  the  main  task  of  the  program. 
Definitions  of  all  variables,  input  and  output,  as  well  as  of 
those  presumed  in  COMMON  storage  are  given.  This  rather 
elaborate  procedure  was  suggested  to  the  authors  by  a  recent 
book  on  computer  analysis  of  time  series  by  Simpson.  (Frankly, 
we  believe  that  this  is  the  manner  in  which  all  computer  pro¬ 
grams  should  be  written.) 
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The  present  program  has  been  continuously  tested  and  used  for 
well  over  a  year  now  and  we  are  reasonably  certain  that  it  is 
free  of  major  coding  errors.  However,  the  sheer  length  of  the 
program  prohibits  us  from  certifying  this  with  certainty. 

The  theory  on  which  the  program  is  based  is  summarized  in 
the  preceding  chapter.  Here,  we  attempt  to  describe  the  program 
from  the  viewpoint  of  its  operation  -  i.e.,  to  give  a  user's 
manual  for  th<  program.  To  a  certain  extent,  this  duplicates 
the  statements  given  in  the  deck  listing  of  the  program.  How¬ 
ever,  in  a  matter  such  as  this,  only  a  slight  amount  of  confusion 
can  cause  undue  grief  and  expenditure  of  time  and  money.  Thus, 
we  feel  that  it  is  vastly  preferable  to  give  an  overdetailed 
account  of  the  program  than  to  run  the  risk  of  dissuading  some¬ 
one  from  use  of  the  program.  The  comments  given  here  apply  mainly 
to  the  operation  of  the  M.I.T.  version  -  it  is  to  be  hoped  that 
users  at  other  installations  will  be  able  to  quickly  ascertain  ' 
just  what  modifications  in  the  program  and  in  its  rules  of 
usage  are  necessary. 

3.2  GENERAL  DISCUSSION  OF  PROGRAM  USAGE 

To  obtain  a  synthesized  waveform  and/or  other  auxiliary 
information,  the  user  must  decide  in  advance  on  the  values  of 
various  input  parameters  which  control  the  operation  of  the  pro¬ 
gram.  These  input  parameters  may  be  considered  as  falling  within 
one  of  six  general  categories; 

1)  1 araneters  specifying  the  nature  of  the  model  atmosphere 
to  be  used. 

2)  Parameters  specifying  the  nature  of  the  explosion; 
namely,  its  yield  and  height  of  burst. 

3)  Parameters  specifying  the  location  of  the  observation 
point  with  respect  to  the  explosion. 

4)  Parameters  controlling  the  nature  of  the  theoretical  and 
numerical  approximations  made  in  the  computation. 

5)  Parameters  controlling  the  extent,  detail,  and  type  of 
the  output. 

It  is  important  that  the  us<~r  realize  that  not  all  input 
parameters  need  be  specified.  The  program  is  written  so  as  to 
allow  considerable  flexibility  in  input  and  output. 
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Possible  outputs  of  the  computation  include  the  following: 

1)  Punched  cards  containing  intermediate  results  in  a  format 
suitable  for  input  to  future  runs  of  the  program. 

2)  A  tabulation  on  the  printout  of  the  assumed  model  atmo¬ 
sphere's  properties  in  a  standard  format.  (Fig.  3-1) 

3)  Printout  of  all  input  quantities  as  they  are  read  in 
(Fig.  3-2). 

4)  Pictorial  displays  of  the  phase  velocity  curves  of  the 
guided  modes  as  being  lines  separating  regions  where  a  +  sign 
is  printed  at  every  point  from  regions  where  a  -  (minus)  sign 
is  printed  at  every  point  of  a  rectangular  array  of  points  in 
i.he  phase  velocity  versus  angular  frequency  plane.  These  dis¬ 
plays  may  later  be  used  to  check  on  whether  all  desired  modes 
were  included  and  on  whether  or  not  the  computation  process 
was  successful  in  resolving  the  modes.  (Figures  3-3  and  3-4) 

5)  A  listing  of  the  tabulation  of  phase  velocity  versus 
frequency  for  each  guided  mode  (Fig.  3-5). 

6)  A  second  listing  giving  the  same  as  in  5  plus  parameters 
of  the  (Jjj  and  <j>„  profiles  (defined  in  Eq.  2.6.1)  for  each  point 
in  the  tabulation.  (Fig.  3-6) 

7)  A  third  listing  giving  the  same  as  in  5  plus  an  amplitude 
factor  independent  of  yield.  (Fig.  3-7) 

8)  A  fourth  listing  giving  the  same  as  in  5  plus  the  yield 
dependent  amplitude  and  phase  which  appear  in  the  integrand  of 
tue  integral  over  frequency  which  represents  the  contribution 
to  the  waveform  from  a  given  guided  mode,  (Fig.  3-8) 

9)  Tabulations  of  acoustic  pressure  versus  time  for  selected 
guided  mode  waveforms.  (Fig.  3-9) 

10)  Tabulation  of  acoustic  pressure  versus  time  for  the  total 
waveform.  (Fig.  3-9) 

11)  A  plot  of  acoustic  pressure  versus  time  for  selected 
guided  mode  waveforms  on  the  CALCOMP  plotter.  (Fig.  3-10) 

12)  A  plot  of  acoustic  pressure  versus  time  for  the  total 
waveform  on  the  CALCOMP  plotter.  (Fig.  3-10) 
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Figure  3-1.  Printout  of  model  atmospheric  properties  for  30°  N 
140°  W.  in  October. 
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0.0 

,  0.0 

,  3.0 

»  0.0 

0.0 

.  0.0 

,  0.0 

.  0.0 

0.0 

.  0.0 

.  0.9 

.  0.0 

0.0 

,  0.0 

,  3.0 

t  0.0 

c.o 

.  0.0 

.  0.3 

,  0.0 

0.0 

.  0.0 

.  0.0 

,  c.o 

0.0 

.  0.0 

,  0.0 

.  0.9 

0.0 

,  0.0 

.  0.0 

.  0.0 

0.0 

,  0.0 

,  0.0 

,  0.0 

0.0 

.  0.0 

.  0.0 

t  0.0 

0.0 

.  0.0 

.  9.0 

,  c.o 

0.0 

,  0.0 

,  9.0 

,  9.0 

0.0 

.  0.0 

>  3.0 

,  0.0 

0.0 

,  0.0 

,  0.0 

.  c.o 

0.9 

•  0.0 

* V5NTY-  C.O 

f 

0.0 

.  0.0 

•  0.0 

,  0.0 

0.0 

,  0.0 

,  0.0 

,  0.0 

O.C 

,  0.0 

.  3.0 

,  0,0 

0,9/ 

.  0.0 

,  0.9 

,  0.0 

0.0 

.  0.0 

»  0.0 

,  c.o 

0.0 

•  0.0 

,  9.0 

,  0.0 

9.0 

,  0.0 

.  0.3 

,  c.o 

0.0 

,  0.0 

.  9,9 

,  0.0 

0.0 

,  0.0 

,  0.0 

•  o.o 

0.0 

•  3.0 

,  3.0 

,  0.0 

0.0 

f  0.0 

,  0.0 

,  0.0 

0.0 

t  0.0 

.  0.0 

.  c.o 

.  T. 0000009  ,  5.0CC910J  ,  9.0000300 

21.090000 

•  15.000009 

,  12.00CJG3 

•  1  A.C 

A2. 000000 

,  A2.  OC'OOOO 

t  AO. 000903 

,  13.  C 

20.009000 

,  0.0 

.  3.3 

•  0.0 

0.0 

,  0.0 

,  0.3 

.  0,0 

Figure  3-2.  Sample  of  NAMELIST  printout. 
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v«*hse 


KCRPAl  MODE  DISPERSION  FUNCTION  SIGN 


3.60000 
0.53703 
0.57586 
3.56379 
0.55172 
0.53966 
0.52759 
3.51552 
0.50345 
3.49138 
0.47931 
0.46724 
0.45517 
0  .4431  C 
3.431C3 
C.418'»7 
3.40690 
0.39483 
0.38276 
0.37069 
3.35862 
0.34655 
0.33448 
0.32241 
0.31034 
0.29828 
0.23621 
0.27414 
0.26207 
0.2500C 


— 4444-44 — 4  44 — 4  4 - 44 - 4  4- 

- 444-44 — 44  4—444—444 — 444 

- 4  44 — 4 - 44 — 4  44 — 444 - 4  4 

- 4  44 —  ♦ — -4  4 - 44 - 4  4 - 44 

- 4  44 — 4  4 — 44 - 44 - 444 - 4 

- 444 — 44—444 — 444 - 44 - 4 

- 44 —  44 — 444 —  444 - 4  44 - 

- +  4 - 4  4 - 44  4  —  -4  4  4 - 444 - 

- 4  4—44 - 44 - 444 - 444 - 

- 4  4 - 4  4 - 4  44 - 4  4 - 44  4 - 

- 4  4 - 4  4  4— —  4  4  4 - 4  44 - 44  4- 

- 44 - 44  4 - 44  4 - 444 - 444 

- 4  4 - 4  4 - 4  44 - 444 - 4  4 

- 4  4 - 4  4 - 4  44  4 - 44  4 - 4  4 

- 4  4 - 44  4 - 44  4 - 444  4 - 4 

- 4  4 - 444 - 44  4  4 - 4  4  44 - 

- 4  4 - 44  4 - 44  4  4 - 4  44  4 - 


- 4  4 - 44  4 - 44  4  4 - 444  4 

- 44 - 4  44 - 44  4  4 - 44  4 

- 444 - 444 - 4444 - 4 

- 444 - 444 - 44444 - 

- 4444 - 4444 - 4444 

- 4  444  4 - 4  4  44444 - - 

4 - -444444 - 444444 

-4444 - 44444444 - 

-444  4 - - - 444  444444444 

-44444 - 44 


4 - —4  44  4 


-4444-- 

-44444- 


OMEGA  123956789012  345678901234567890 

PHASE  VELOCITY  OIRECTIGN  IS  35.0CCDEGREES 


OMEGA  = 

0.500O0E-02 
0.21379E-CI 
0.37759E-01 
0.541J8E-CI 
0.7''517E-0l 
0 • 86896E -Cl 


0.82759E-02  0.1 1552E -01 


0.24655E-01 
0.41Q34E-01 
C. 574 14E-01 
0.73793E-01 
C.9C 172E-01 


0.279  3  IE-01 
0.4431QE-01 
0.60690F-01 
0. 77069E-01 
0.93448E-01 


C.  14828E-01 
0.31207E-0 l 
0.47586E-01 
0.63965E-0 l 
C.80345E-01 
0. 96724E-0 1 


0 • 18103E-01 
C. 34483E-01 
C.50862E-0 1 
C.67241E-C1 
0.83621E-01 
0.13000E  00 


Figure  3-3.  Tabulation  of  the  normal  mode  dispersion  function  signs 
for  the  atmosphere  of  Figure  3-1  and  a  direction  of  propagation  of 
35°  north  of  east. 


vphse 


NORMAL  MODE  DISPERSION  FUNCTION  SIGN 


0.600PO 
0.53793 
0.57586 
3.56379 
0.55172 
0.53966 
0.52759 
0.51552 
0.50345 
0.49138 
0.47931 
0.46724 
0.45517 
0 .4431  C 
•7.43103 
0.41897 
0 .4  7690 
C. 39483 
0.33276 
0.37069 
0.35862 
0.34655 
0.34052 
0. 33448 
0.32241 
0.31940 
0.31789 
0.31713 
0.31638 
7.31487 
7.31336 
0.31034 
7.29828 
0.28621 
0.27414 
0.  2620  7 
7.2500C 


X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X- 

X4 

X4 

X* 

X- 

X- 

X 

X- 

X- 

X- 

X- 

X- 

X- 

X* 


♦ — 
444 
-44 
-44 
-44 
-4 


444 


— 4444-44 — 44444 — 44 - ff- - 44- 

- 444-44 — 4  444  4 — ♦♦♦—♦«•♦ - ♦♦♦ 

- ♦  <-4- - «• - 44-4-f - - V-M- - ♦♦ 

- ♦♦♦ - ♦ - ♦♦♦♦ - - +4 - ♦♦ 

- ♦♦♦■ - +  +  —  4  44-4- - +  4- - 44-4- - ♦ 

- 4-4  4 - 44 - 444  4 — 444 - 44  4 - 4 

- 44 44 - 4  4  4-- 44  4 - 4444 - 

- 4  4 44 - 4  44 - 444 44  44 - 

- +  «. - - -  44 - 444 - 44  44 - 

- 44  —  44 - 4  44 - 44 - 44  44 

- 4  4 44  4 - 4  44 - 444 —444- 

- 4  4 - 444 - 44  4 - 44  4 - 44  4 

- +  «. - *♦ - ♦♦4- - 444 - 44 

- 44 - 44 - 44  4  4 - 444 - 4  4 

- 44 - 44  4 - 44  4 - 4444 - 4 

- 4  4—  4444 - -44  44 -—4  44  44 - 

- 44 - 44444 - 4  44  4 - 4  4444 - 

- 4  4 - 44444-- - 4444 - 44444 

- 44 - 4444  4 - 444  4 - 44  4 

- 4  44 - 4  4444 - 4444 - 4 

- - 4.4.4. - 444444. - 

- 4444 - 44  44 - 4  4444 

- 4444 - 4444 - 44 

- 44444 - 4444444 - 

- 444444 - 4444444 

- 4444444 - ..444444 

- - 4444444 - ... - - - .-44444 

4  44  4 - 4  4  44444 - 4444 

44  444 - 44  4444-- - - - - - 44  4 

44444 - 44444 - 44 

4  4  4  4  4 - 4444 - 44 

44444 - 44444444 - 

44444 - 4444444444444 

-44444 - 44 

-44444 - 

- 4444 - 

4-4444 - 


OMEGA  1235567890123556789012345678901234567 

PHASE  VELOCITY  DIRECTION  IS  35.0000EGREES 


OMEGA  = 

0.50000E-02 
0.991 33E-02 
0.246556-01 
0.41034E-01 
0.50862E-01 
0.67241E-C1 
C.83621E-01 
0.967246-01 


0.82759E-02 
0. 11552E-01 
0. 2793  IE-01 
0.44310E-01 
C. 541 38E-01 
0. 7C517E-01 
C. 86896F-01 
C.IOOOOE  00 


0. 86853E-02 
0. 14828E-01 
0. 31207E-01 
0.45948E-01 
0.57414E-01 
0. 73793E-01 
0.88534E-01 


0.  88901E-02 
0, 18103E-C l 
0. 34483E-C1 
C. 46767E-0 l 
0.60690E-01 
0. 77069E-C 1 
0.90172E-C1 


Figure  3-4.  Expanded  version  of  the  table  in  Figure  3-3. 
and  columns  have  been  added  to  make  the  modes  distinct. 
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C.93948E-02 
0.213796-01 
C.37759E-C1 
0. 47586E-01 
C .639656-31 
C. 803456-01 
C.934436-C1 


Rows 


OMEGA 


OMEGA 


OMEGA 


TABULATION  OF  FIRST  8  MOOES 


MOOE  l 


(RAO/SEC)  VPHSE  (KM/SEC) 


0.008276 
0.008685 
0 .008890 
C. 009095 
0.009914 

o.onon 


0.257854 
C. 256762 
0.256238 
0.255711 
0.253487 
0.249999 


MODE  2 

(RAO/SEC)  VPHSE  (KM/SEC) 


0.008276 
0.008644 
C. 008685 
0.008712 
0.008785 
0.008852 
0.008890 
0.008987 
0.009095 
G.0C9590 
0.009914 
0.010319 
0.011192 
0.011552 
0.012215 
C. 013410 


0.317475 
0.317133 
0.316778 
0.316379 
0.314870 
0.313362 
0.312499 
0.310344 
0.3G8013 
0.298275 
0.292628 
0.286206 
0.274137 
0.269688 
C. 262068 
0.249999 


MOOE  3 

(RAO/SEC)  VPHSE  (KM/SEC) 


0.008276 
0.008500 
0.008621 
C. 008685 
0.008727 
0.008890 
0.009095 
0.009914 
0.011552 
C. 014828 
0.018103 
<■•018571 


0.328731 
0.322413 
0.319396 
0.318234 
0.317887 
0,317615 
0.317559 
0.317503 
0. 317446 
0.317323 
0.317161 
0.317133 


Figure  3-5.  A  portion  of  the  normal  mode  dispersion  curve 
tabulation  printed  by  INFRASONIC  WAVEFORMS  as  determined 
using  the  table  in  Figure  3-4. 


PHI 1  AND  PHI2  PROFILE  DATA 


IAPIMX 

1AP2NX 

Rl 

R2 

Rl 

NZCl 

NZC2 


NO.  CF  LAYER 
NO.  OF  LAYER 
PHIIUAP1MX) 
PHI2UAP2MXJ 


FOR  WHICH  ABSIPHIIC IAPIMX 1) 
FOR  WHICH  A8SIPH12 ( IAP2MX l 1 
/  ABS(PHI2(  IAP2MXM 
/  ABSIPHI2I IAP2MX1 ) 


PH  12 ( 1 1  /  ABS(PHI2(  IAP2MX11 
NO.  CF  TIRES  PH! I  CHANGES  SIGN 
NO.  OF  TINES  PHI2  CHANGES  SIGN 


IS 

IS 


A  MAXIMUM 
A  MAXIMUM 


MODE  l 


OMEGA 

VPHSE 

IAPIMX 

Rl 

NZC  1 

IAP2MX 

0.C0826 

C. 25785 

34 

7.09325 

2 

16 

0.C0869 

0  •  25676 

15 

6.55537 

2 

16 

0.00B89 

0.25624 

15 

6.57698 

2 

16 

0.C0909 

C. 25571 

15 

6.59924 

2 

16 

O.C099I 

0.25349 

15 

6.69513 

2 

16 

O.OUOl 

C. 25000 

15 

6.84304 

2 

16 

MODE  2 


CMEGA 

VPHSE 

IAPIMX 

Rl 

NZC  l 

IAP2MX 

0.00828 

0.31748 

33 

2.07396 

3 

1 

0.00864 

C. 31713 

32 

14.98704 

3 

1 

C. 00869 

0.31678 

32 

28.47873 

3 

1 

0.00871 

0.31638 

32 

39.86269 

3 

24 

0.00876 

C. 31487 

32 

39.20818 

1 

24 

0.00885 

0.31336 

32 

38.63559 

l 

24 

0.00885 

0.31250 

32 

38.31291 

1 

24 

0,00899 

0.31034 

32 

37.49858 

1 

24 

0.00909 

0. 30801 

32 

36.60118 

1 

24 

0.00955 

C.29P->8 

31 

33.53206 

1 

23 

0.0C991 

0.29  3 

10 

31,02254 

l 

23 

0.0103? 

0,28621 

29 

28,49094 

1 

23 

O.Oll 19 

0.27414 

28 

25.01674 

l 

23 

0.01155 

0.26969 

28 

24.25139 

l 

23 

0.01222 

0.26207 

28 

22. 75203 

1 

23 

0.01341 

0.24000 

27 

20,43314 

1 

23 

Figure  3-6,  Sample  printout  of  anti  <|^  prnUlft  tin t  it 


TABULATION  OF  SOURCE  FREE  AMPLITUDES  FROM  SUBROUTINE  PAMPDE 


MODE 


MOOE 


BODE 


Figure  3- 
AMP  which 


HEIGHT  OF  BURST 
HEIGHT  OF  OBSERVER* 
FACT 

ALAM  * 


3.000  KM 
0.0  KM 
0.558  KM/SEC 
1.173 


OMEGA 

0.00828 

0.00869 

0.00889 

C.0C9C9 

0.0C991 

0.01101 


VPHSE 

0.25785 

0.25676 

0,25624 

0.25571 

0.25349 

0.25000 


IMP 

-0.00455954 
-0.00459953 
-0.00459171 
-0. 0C457545 
-0.00446189 
-0.00421712 


0.00828 
C. 00864 
0.00869 

C.0C871 
0.0C878 
G.0C885 
0.0C889 
C. 00899 
0.00909 
0.00959 
0.00991 
0.0103? 
0.01119 
0.01155 
0.01222 
0.01341 


VPHSE 
C. 31748 
0.31713 
0.31678 
0.31638 
0.31487 
0.31336 
0.31250 
0.31034 
0.30801 
0.29828 
0.29263 
0.28621 
0.27414 
0,26969 
0.26207 
C. 25000 


AMP 

-0.02964770 
-0  .02382846 
-0.01535239 
-0.00928055 
-0.00245403 
-0.00113502 
-0.00082699 
-C. 00046585 
-0.00030775 
-0.00014295 
-0.00012778 
-0.00013161 
-0.00019093 
-0.00023866 
-0.00038533 
-0.00098984 


3 


OMEGA 
0.00828 
0.00850 
0.0C862 
0.00869 
0.0C873 
C. 00889 
0.00909 
0.0C991 


VPHSE 

0.32873 

0.32241 

0.31940 

0.31823 

0.31789 

0.31761 

0.31756 

0.31750 


AMP 

-0.000C6837 
-C. 00049140 
-0.00349182 
-0.01440191 
-0.02297221 
-0.02866438 
-0.02937463 
-0.02952643 


.  Tabulation  of  modes  including  the  amplitude  factor 
is  independent  of  the  source  strength. 
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MODE  TABULATION  FOR  Y=  10000.00  KILOTONS 


MODE  l 


OMEGA 

C.C0828 
C. 00869 
C. 00889 
C.009C9 
G.C099I 
O.OIiOl 


VPHSE 

0.25785 

0.25676 

0.25624 

0.25571 

0.25349 

0.25CC0 


AMP  LTD 

-67670. 

-7C0I0. 

-70745. 

-71337. 

-72784. 

-72766. 


PHASE 

3.7268C 

3.71697 

3.71206 

3.70715 

3.68753 

3.66127 


MODE  2 


OMEGA  VPHSE 


C.CC828 

0.31748 

C. 00864 

0.31713 

C.C0869 

0.31678 

C  .00871 

0.31638 

C. 00878 

0.31487 

C.C0885 

0.31336 

C. 00889 

0.31250 

C. 03899 

0.31034 

C.C09C9 

0.30801 

C .C  0959 

0.29828 

C.C0991 

0.29263 

C. 01032 

0.28621 

C. 01119 

0.27414 

0.01155 

0.26969 

C. 01222 

0.26207 

G. 01341 

O.25CC0 

AMPLTD 

PHASE 

-3.96551E 

05 

3. 7268C 

-3.25613E 

05 

3. 71796 

-2. IQ378E 

05 

3. 71697 

-1.27441E 

05 

3. 71634 

-33915. 

3.71458 

-15781. 

3.71297 

-11538. 

3.71206 

-6555.5 

3.70974 

-4371.9 

3.70715 

-2116.2 

3.69529 

-1939.9 

3.68753 

-2058.8 

3.67785 

-3169.8 

3.65701 

-4053.6 

3.64844 

-6811.7 

3.63267 

-18688. 

3.60436 

MODE  3 


OMEGA 

VPHSE 

0.00828 

0.32873 

C. 00850 

0.32241 

0.00862 

0.31940 

C . C  0869 

0.31823 

0.00073 

C. 31789 

C  .00889 

0.31761 

C.009C9 

0.31756 

C .0099 1 

0. 31750 

C. 01155 

0.31745 

C.C1483 

0,31732 

AMPLTD 

PHASE 

-898.67 

3. 72680 

-6606.2 

3.72143 

-47486. 

3.71851 

-1.96905E 

05 

3.  71697 

-3. 14976E 

05 

3.71596 

-3.9U443E 

05 

3. 71206 

-4.  10974E 

05 

3.70715 

-4. 30359E 

05 

3.68753 

-4.60767E 

05 

3. 64844 

-5. 10123E 

05 

3.57093 

Figure  3-8.  Tabulation  of  mode,*;  including  the  source-dependent 
amplitude  and  phase,  AMPLTD  and  PHASE,  respectively. 
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TABULATION  OF  RESPONSES 


TIME 

TOTAL 

MODE  1 

MODE  2 

t 

16000.0 

-3.21 

0.04 

1.20 

2 

16015.0 

-2.57 

0.01 

1.38 

3 

16030.0 

1.87 

-0.01 

1.54 

4 

16045.0 

3.34 

-0.04 

1.63 

5 

16060.0 

-0.  06 

-0.06 

1.79 

6 

16075.0 

-1.70 

-0.09 

1.87 

7 

16090.0 

1.47 

-0.11 

1.92 

8 

16105.0 

3.41 

-0.13 

1.94 

9 

16120.0 

0.42 

-0.15 

1.93 

10 

16135.0 

-1  .72 

-0.17 

1.83 

11 

16150.0 

1.68 

-0.18 

1.81 

12 

16165.0 

5.46 

-0.19 

1.70 

13 

16180.0 

3.97 

-0.20 

1.57 

14 

16195.0 

1.21 

-0.20 

1.41 

15 

16210.0 

2.95 

-0.20 

1.23 

16 

16225.0 

5.67 

-0.19 

1.03 

17 

16240.0 

3.21 

-0.18 

0.81 

18 

16255.0 

-0.95 

-0.16 

C  .  58 

19 

16270.  C 

0.8C 

-0.15 

0.34 

20 

16285. C 

6.37 

-0.12 

0.09 

21 

16300.0 

7.21 

-0.10 

-0.16 

22 

16315.0 

3.09 

-0.07 

-0.41 

23 

16330.0 

1.78 

-0.04 

-0.65 

24 

16345.0 

4.58 

-0.01 

-C.88 

25 

16360.0 

4.56 

0.02 

-1.09 

26 

16375.0 

0.16 

0.05 

-1.29 

27 

16390.0 

-1.55 

0.08 

-1.47 

28 

16405.0 

1.82 

0.10 

-1.62 

29 

16420.0 

3.29 

0.13 

-1.75 

30 

16435.0 

-0.45 

0.16 

-1.85 

31 

16450. C 

-2.80 

0.18 

-1.92 

32 

16465.0 

0.15 

0.19 

-1.96 

33 

16480.0 

1.79 

0.21 

-1.96 

34 

16495.0 

-2.78 

0.21 

-1.93 

35 

16510.0 

-6,93 

0.22 

-1.88 

36 

16525.0 

-4.05 

0.22 

-1.79 

37 

16540.0 

0.15 

0.21 

-1.67 

38 

16555.0 

-2.20 

0.20 

-1.53 

39 

16570.0 

-6.80 

0.19 

-1.36 

40 

16585.0 

-5.11 

0.17 

-1.  17 

41 

166C0.0 

-0.42 

0.  15 

-0.96 

42 

16615.0 

-2.15 

0.13 

-0.73 

43 

16630.0 

-8.42 

0.10 

-0.50 

44 

16645.0 

-8.92 

0.07 

-0.25 

Figure  3-9.  Sample  printout  of  the  total  and  modal  pressure  histories. 
The  time  is  giver,  in  seconds  after  the  blast,  and  pressure  in  dynes/cm2. 
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Figure  3-10,  CALCOMP  plot  of  modal  and  total  waveforms  on  a  common 
time  axis  and  with  a  common  pressure  scale.  (Reduced  to  250  ybars 
per  inch.)  See  Figure  3-12  for  a  complete  listing  of  the  input  data. 
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at  the  user's  discretion  as  to  just  what  output  is 
realised  in  a  given  run  of  the  program,  A  fuller  discussion 
and  output  variables  is  given  in  subsequent  sections. 


3.3  INPUT  PARAMETERS  CHARACTERIZING  THE  ATMOSPHERE,  THE  SOURCE, 
AND  THE  OBSERVER  LOCATION 

The  atmosphere  model  is  characterised  by  three  possible  sets 
of  parameters.  These  are  listed  below: 


Set  1 

Set  2 

Set  : 

IMAX 

IMAX 

IMAX 

T 

T 

Cl 

VKNTX 

WINDY 

VXI 

VKNTY 

WANGLE 

VYI 

LANGLE 

LANGLE 

ZI 

ZI 

HI 

The  variables  which  appear  in  these  three  lists  are  defined  below: 

1)  IMAX  is  the  number  of  layers  of  finite  thickness  in  the 
multilayer  atmosphere.  It  is  an  integer  and  may  take  any  value 
between  ?.  and  99,  inclusive. 

2)  T  is  the  absolute  temperature  in  degrees  Kelvin.  It  is 

a  subscripted  real  variable;  T(l)  is  the  temperature  in  the  lowest 
layer;  T(IMAX  +  1)  is  the  temperature  in  the  upper  half  space. 

(The  layers  are  numbered  from  the  bottom.)  Exactly  IMAX  +  1  values 
T(I)  should  be  supplied. 

3)  Cl  is  a  subscripted  real  variable  representing  sound  speed 
in  km/sec.  Cl (I)  is  the  sound  speed  in  the  I-th  layer.  Exactly 
IMAX  +  1  values  should  be  supplied. 

A)  VKNTX  and  VKNTY  are  subscripted  (IMAX  +  1  values)  repre¬ 
senting  x  and  y  components  of  wind  speed  in  knots  of  the  IMAX  +  1 
layers  (including  the  upper  half  space). 

5)  WINDY  is  a  subscripted  variable  (IMAX  +  1  values)  repre¬ 
senting  the  wind  velocity  magnitude  in  knots  of  the  IMAX  4-  1  layers. 

6)  WANGLE  is  a  subscripted  variable  (IMAX  +  1  values)  repre¬ 
senting  the  wind  velocity  direction  in  degrees,  reckoned  counter¬ 
clockwise  from  the  x  axis. 
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7)  LANGLE  is  an  integer*  If  it  is  0  or  negative,  the  computer 
is  being  toid  that  set  1  (VKKTX  and  VKNTY)  is  supplied.  If  it  is 
positive,  set  2  (WINDY  and  WANGLE)  is  being  supplied. 

8)  ZI(I)  is  the  height  above  the  ground  of  the  top  of  the 
I~th  layer  of  finite  thickness.  Its  distensions  should  be  km. 

Exactlay  IMAX  values  should  be  supplied. 

9)  lil (I)  is  the  thickness  in  km  of  the  I-th  layer  of  finite 
thickness.  IMAX  values  are  supplied. 

The  manner  in  which  the  computer  is  instructed  as  to  when 
set  3  rather  than  sets  1  or  2  is  being  supplied  depends  on  the 
value  of  a  control  integer  NSTART  which  has  previously  been  input. 
Briefly,  NSTART  being  1  implies  sets  1  or  2  are  being  input,  while 
NSTART  *  2  implies  set  3  is  being  read.  This  is  discussed  further 
in  Sec.  3.5. 

The  source  model  is  specified  by  two  parameters  YIELD  and  ZSCRCE: 

1)  YIELD  is  the  yield  of  the  explosion  in  KT. 

2)  ZSCRCE  is  the  height  above  the  ground  in  km  of  the  explosion. 

The  observer  location  is  specified  by  parameters  ROBS,  ZOBS, 
and  THETKD: 

1)  ROBS  is  the  magnitude  of  the  horizontal  distance  in  km 
between  source  and  observer. 

2) THETKD  is  the  angle  in  degrees,  reckoned  counterclockwise, 
which  the  horizontal  component  of  the  vector  from  source  to 
observer  makes  with'  the  x  axis. 

3)  ZOBS  is  the  height  in  km  above  the  ground  of  the  observer. 

The  meaning  of  these  parameters  is  further  illustrated  by  Fig.  3-11* 


3.4  INPUT  PARAMETERS  CONTROLLING  THE  METHOD  OF  COMPUTATION  AND 
OUTPUT 

A  major  portion  of  the  computation  is  concerned  with  the  de¬ 
termination  of  the  dispersion  curves  (phase  velocity  versus  -itigula- 
frequency)  of  the  guided  modes.  Just  which  modes  and  which  segments 
of  modes  are  found  and  used  in  subsequent  calculations  depends  on 
the  search  region  in  the  phase  velocity  vs.  frequency  plane.  This 
rectangular  search  region  is  specified  by  the  following  parameters: 
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1)  0M1  is  the  lower  angular  frequency  limit  (rad/sec)  of  the 
search  region. 

2)  0M2  is  the  upper  angular  frequency  limit  (rad/sec)  of  the 
search  region. 

3)  VI  is  the  lower  phase  velocity  limit  (km/sec)  of  the  search 
region. 

4)  V2  is  the  lower  phase  velocity  limit  (km/sec)  of  the  search 
region. 

Generally,  one  should  select  VI  to  be  larger  than  the  maximum  wind 
speed  in  the  model  atmosphere.  It  is  also  advisable  that  one  not 
take  0M1  identically  equal  to  0,  as  this  could  conceivably  lead  to 
machine  overflow  and  termination  of  a  given  run. 

The  details  of  the  search  for  modes  within  the  rectangular 
search  region  depend  on  the  initial  choice  of  the  number  of  points 
at  which  the  sign  of  the  normal  mode  dispersion  function  is 
tabulated.  As  is  explained  in  Sec.  2.7,  the  numerical  computation 
begins  with  the  generation  of  an  array  of  points,  lying  on  a 
rectangular  grid,  covering  the  search  region.  The  total  number 
of  intersection  points  in  this  grid  is  determined  by  two  integers: 

1)  NOMI  is  the  number  of  equally  spaced  constant  frequency 
lines  comprising  the  vertical  lines  of  the  grid. 

2)  NVPI  is  the  nisnber  of  equally  spaced  constant  phase 
velocity  lines  comprising  the  horizontal  lines  of  the  grid. 

Both  NOMI  and  NVPI  should  be  between  2  and  100,  inclusive.  In 
our  own  calculations,  we  have  generally  taken  both  of  these 
integers  to  be  30. 

The  modes  found  in  the  search  region  are  numbered  consecutively, 
starting  from  the  lower  left  corner  of  the  region.  (Phase  velocity 
increases  upwards  and  frequency  increases  to  the  right.)  A  key 
input  parameter  in  this  respect  is  the  maximum  number  of  modes 
MAXMOD  which  are  to  be  tabulated  and  used  in  the  subsequency 
waveform  synthesis.  If,  for  example,  MAXMOD  is  5,  the  program 
will  not  tabulate  or  use  modes  6,  7t,  etc.  The  maximum  value  of 
MAXMOD  permitted  by  the  current  version  of  the  program  is  10, 

In  our  computations,  we  generally  use  10  unless  we  have  some 
reason  to  believe  that  the  higher  order  modes  will  not  contribute 
appreciably  to  the  wave  form  during  the  time  interval  of  interest. 

For  the  tabulation  and  graphing  of  pressure  waveforms  versus 
time,  it  is  necessary  to  specify  the  time  interval  of  the  computed 
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waveform  and  Che  time  increment  between  succesaive  tines  at  which 
the  pressure  is  tabulated.  The  parameters  specifying  these  quan¬ 
tities  are  listed  below: 

1)  TFIRST  is  the  earliest  time  in  seconds  relative  to  time 
of  detonation  at  which  computations  are  performed, 

2)  TEND  is  the  latest  time  in  seconds  relative  to  time  of 
detonation  at  which  computations  are  performed. 

3)  DELTT  is  the  time  increment  in  seconds  for  which  succes¬ 
sive  waveform  points  are  tabulated. 

In  choosing  these  quantities ,  care  should  be  taken  to  Insure 
that  the  number  of  time  points  (TEND-TFIRST) /DELTT  is  less  than 
1000,  since  otherwise  incorrect  values  could  be  obtained  through 
storage  spillover.  For  all  realistic  cases  which  we  have  consi¬ 
dered,.  it  appears  sufficient  to  take  DELTT  >_  6  sec.  It  is  mean¬ 
ingless  to  take  DELTT  much  less  than  (1/20)  of  1/0M2.  The  choice 
of  TFIRST  and  TEND  is  generally  made  with  the  intent  of  including 
the  main  pulse,  which  travels  with  speeds  of  the  order  of  the  sound 
speed  at  the  ground.  The  nature  of  the  theory  suggests  that  the 
computations  will  generally  not  be  too  reliable  at  times  much 
later  than  this.  Some  trial  and  error  may  be  required  to  deter¬ 
mine  the  optimum  choice  of  TFIRST  and  TEND  in  relation  to  the 
observer  distance  ROBS.  The  examples  treated  in  the  following 
chapter  may  be  of  some  assistance  in  this  respect.  Also,  the 
experimental  waveforms  should  in  principle  give  a  clue  to  the 
proper  choice. 

The  nature  and  extent  of  the  output  is  specified  by  a  number 
of  additional  input  parameters.  If  one  wants  a  maximum  of  print¬ 
out  of  intermediate  values,  he  specifies  NPRNT  »  1  (or  any  other 
positive  integer);  if  he  wants  a  minimum,  he  specifies  NPRNT  «  0 
(or  any  negative  integer).  In  the  latter  case,  the  input  is 
listed,  the  tabulation  of  waveform  pressure  versus  time  is  given, 
and  the  waveforms  are  plotted.  In  any  nonroutine  operation  of 
the  program,  it  is  probably  advisable  to  set  NPRNT  «  1.  However, 
this  does  lead  to  a  tremendous  amount  of  printout,  and,  if  the 
current  run  only  represents  a  slight  modification  of  a  previous 
run,  one  may  want  to  set  NPRNT  ■  -1. 

The  program  also  allows  for  the  option  to  punch  out  inter¬ 
mediate  results  on  cards.  The  format  of  the  punched  cards  is  such 
that  they  may  be  used  in  later  runs  of  the  program  as  input  in 
order  to  save  machine  time.  If  one  desires  this  option,  he  should 
set  NPNCH  -  1.  Otherwise,  he  should  set  NPNCH  *  0.  In  general, 
it  is  advisable  to  avoid  requesting  NPNCH  *  1  unless  one  plans  an 
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inaaediate  use  of  the  cards.  Otherwise,  the  bookkeeping  chores  of 
keeping  track  of  a  large  number  of  cards  nay  get  out  of  hand. 
However,  the  computer  tine  saved  (which  nay  be  of  the  order  of  10 
minutes  of  360  time)  is  not  negligible,  and  one  nay  sometlnes  wish 
to  exercise  this  option. 

To  limit  the  number  of  plots  on  the  CALCOMP  graph  and  the  num¬ 
ber  of  modal  waveforms  tabulated  on  the  printout,  an  input  para¬ 
meter  I0PT  is  used.  If  I0PT  is  1,2,....,  10,  only  the  contribution 
to  the  waveform  from  mode  number  I0PT  is  calculated,  printed,  and 
plotted.  If  IOPT  is  11,  the  computer  calculates,  prints,  and 
plots  all  modal  waveforms,  as  well  as  the  total  waveform.  If  IOPT 
is  12,  all  modal  waveforms  are  computed,  but  only  the  total  wave¬ 
form  is  tabulated  and  plotted.  Normally,  one  might  wish  to  set 
IOPT  *  11  and  obtain  all  possible  auxiliary  results.  However,  in 
routine  operation,  when  the  qualitative  properties  of  the  individual 
modal  waveforms  are  a  priori  known,  one  might  set  IOPT  »  12,  In 
some  special  cases,  when  one  is  interested  in  only  one  particular 
mode,  he  might  set  IOPT  equal  to  1,2,3,...,  or  10. 


3.5  PREPARATION  OF  THE  INPUT  DECK 

The  program  is  written  such  that  all  input  data  should  be 
supplied  in  the  NAMELIST  format,  which  is  a  standard  feature  of 
FORTRAN  IV  for  the  IBM  360  and  the  IBM  7094.  We  find  that  NAMELIST 
is  particularly  convenient  because  it  enables  us  to  supply  only 
the  data  which  is  needed  for  a  given  calculation  and  because  it 
minimizes  the  possibility  of  keypunching  errors  during  preparation 
of  the  input  deck.  For  a  description  of  NAMELIST  we  refer  the 
reader  to  any  of  the  FORTRAN  IV  manuals. 

The  main  program  has  ten  NAMELIST  statements,  each  defining 
the  data  which  may  be  read  in  when  the  computation  executes  a 
READ  statement  with  a  particular  NAME.  The  NAMES  of  the  possible 
data  sets  are  numbered  NAM1,  NAM2,  ....,  NAM10. 

For  convenience  of  reference,  these  namelist  statements  are 


reproduced  below: 

NAMELIST 

/NAM1/ 

NSTART,  NPRNT,  NPNCH 

NAMELIST 

/NAM2/ 

LANGLE,  IMAX,  T,  VKNTX,  VKNTY,  WINDY, 

WANGLE 

NAMELIST 

/NAM3/ 

IMAX,  Cl,  VXI,  VYI,  HI 

NAMELIST 

/NAM4/ 

THETKD,  VI,  V2,  0M1,  0M2,  N0MI,  NVPI, 

MAXM0D 

NAMELIST 

1 

/NAM5/ 

IMAX,  Cl,  VXI,  VYI,  HI,  THETKD,  MDFND 
KFIN,  0MM0D, VPM9P 

,  KST, 
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NAMELIST 

/NAM6/ 

ZSCRCE,  ZOBS 

NAMELIST 

/NAM7/ 

0MM0D,  VPMGD,  MDFND,  KST,  KFIN, 

AMP,  ALAM,  FACT 

NAMELIST 

/NAM8/ 

YIELD 

NAMELIST 

/NAM9/ 

MDFND,  KST,  KFIN,  0MM0D,  VPM0D, 

AMP LTD,  PHASQ 

NAMELIST 

/NAM10/ 

TFIRST,  TEND,  DELTT,  ROBS,  IOPT 

In  any  given  run  with  the  program,  the  first  card  in  the  data 
card  pack  should  be  a  NAMl  card.  This  card  should  generally  be  of 
the  form 

&NAM1  NS TART*  ,  NPRNT*  ,  NPNCH  -  &END 

with  desired  values  supplied  for  the  parameters  NSTART,  NPRNT, 

NPNCH.  The  order  of  these  three  quantities  is  irrelevant.  Fur¬ 
thermore,  the  name,  equal  sign,  and  value  of  any  of  them  may  be 
omitted  if  one  desires  to  us*  the  value  of  0  for  any  of  them. 

The  cards  following  the  first  depend  on  the  value  of  NSTART. 
Unless  one  is  supplying  data  in  the  form  of  intermediate  results 
computed  during  previous  runs,  he  would  take  NSTART  *1.  Given 
that  NSTART*!,  the  data  cards  following  should  be  those  corresponding 
to  NAM2,  NAM4,  NAM6,  NAM8,  and  NAM10,  in  that  order.  Only  nonzero 
values  or  values  of  quantities  which  will  be  used  in  the  compu¬ 
tation  need  be  supplied.  Thus,  for  example,  if  one  sets  LANGLE*0 
(See  Sec.  3.3.),  then  he  need  not  list  the  values  of  WINDY  or 
WANGLE  in  the  NAM2  data  group.  Values  of  subscripted  variables 
should  be  listed  in  the  format  (for  example) 

VKNTX  -  0. ,0, ,2.0,2. 0,5. 0,7.5, 5.0, VKNTY*. . .. 

signifying  that  Vi®TX(l)-0.,VKNTX(2)-0.,VKNTX(3)-2.0,  etc.  Note 
that,  even  though  the  first  two  numbers  are  0,  they  could  not  be 
omitted,  since  otherwise  the  computer  would  consider  2.0  to  be 
VKNTX (1) .  However,  a  long  string  of  Identical  numbers  can  be 
abbreviated  by  writing  6*0.,  for  example,  for  a  string  of  six  zeros. 
It  must  be  emphasized  that  elements  with  indices  greater  than  the 
largest  index  for  that  variable  used  in  the  computation  need  not 
be  supplied.  In  other  words,  just  because  100  spaces  of  storage 
are  slotted  to  VKNTX  ddes  not  imply  that  100  numbers  need  be  listed 
in  the  input. 

If  NSTART-2,  one  supplies  NAM3,  NAM4,  NAM6,  NAM8,  NAM10.  If 
NSTARI*4,  one  supplies  NAM7,  NAM8,  NAM10.  If  NSTART»5,  one  supplies 
NAM9,NAM10.  This  procedure  is  described  in  greater  detail  in  the 
first  two  pages  of  the  deck  listing  of  the  main  program  in  Appendix 
B,  The  option  of  taking  NSTART-2,  3,  4,  or  5  simply  allows  one  to 
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make  use  of  intermediate  results  calculated  in  previous  runs  of  the 
program.  The  data  in  NAM3S  NAM5,  NAM7,  or  NAM9  would  generally  have 
been  punched  in  NAMELIST  format  during  a  previous  run.  We  did  not 
define  all  of  the  input  variables  in  these  latter  lists  in  the 
preceding  two  sections  since,  in  normal  operation,  those  variables 
omitted  would  be  specified  by  the  computer  (through  the  punching 
process)  rather  than  by  the  user.  The  variables  in  NAM3  are  a 
possible  exception,  as  NAM3,  through  the  NSTART-2  option,  simply 
provides  the  pos: Ibility  of  supplying  the  parameters  defining  the 
model  atmosphere  in  a  manner  other  than  that  implied  by  NSTART-1. 
This  has  been  discussed  in  Sec.  3.3. 

A  list  of  all  possible  input  variables  and  their  definitions 
is  given  on  pages  3,  4,  5,  of  the  deck  listing  of  the  main  pro¬ 
gram  in  Appendix  B. 

The  last  card  read  in  corresponding  to  a  given  problem  is 
always  the  NAM10  card.  The  very  next  card  should  always  be  a 
NAM1  card.  If  the  problem  previously  considered  is  the  last 
problem  to  be  computed  in  the  run,  one  specifies  NSTART-6  in  the 
NAM1  list  and  needs  not  specify  the  values  of  NPRNT  or  NPNCH. 

If  not,  he  specifies  NSTART-1, 2, 3, 4,  or  S  and  gives  his  data  cards 
in  one  of  the  sequences  and  formats  described  above.  The  rules 
for  providing  data  for  successive  problems  are  similar  to  those 
for  the  first  with  one  exception.  If  the  user  fails  to  provide  a 
value  for  any  quantity,  the  value  assumed  by  the  computer  for  that 
quantity  will  be  that  value  currently  stored  in  the  machine  - 
which  may  not  necessarily  be  zero.  Also,  even  though  the  user  may 
wish  to  use  all  the  values  previously  input  through  a  (for  example) 
NAM2  list,  he  must  put  a  NAM2  card  in  the  portion  of  the  deck 
corresponding  to  the  current  problem.  Such  a  card  would  be  of  the 
form 


&NAM2  (blanks)  &END 

It  is  in  successive  problems  that  the  option  of  taking  NSTART-2, 
3,  4,  or  5  may  find  its  greatest  utility.  For  example,  if  one 
wished  to  study  the  effect  of  yield  with  all  other  variables  fixed, 
he  could  take  bis  data  for  the  second  and  successive  problems  in 
the  form 


&NAM1 

NSTART-4 

ocEND 

&NAM7 

SEND 

&NAM8 

YIELD-2000 

SEND 

&NAM10 

&END 
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CNAM1  NSTART*!,  NPRNT*1.  NPNCH*  -1_  SENS 
SNAP? 

1KAX  »  33, _ _ 

71x1. ,2., 4. ,6. ,8. ,10. ,12.-  I4.«16..l8.,20.,25.,30.«35.,40*«45.«55.« 

65.  ,75., 85.  ,95..  105.,  115.,  125..  135. ,U5.»  155.,  165.,  175.  ,  185.,  195.  , 

205..  225. , 

T*292..288..270.,260.,249.,236..225.f215.  .  205._,1 98.  ,205.  ,215.  ,227.  , 

237..  269. .265.. 260. .260. .205. .185.. 184. .200.. 250. .600.. 570. .730., 

925.,  1080.  .  11 80.  ,  1255.  ,  1320.  ,  1390,  .1460.  .1600,  . _ 

l ANGLE  *  1. 

W I  N0Y=3.  ,3.  ,9.  ,9,  ,19,  ,25  •  ,  30  •  ,  27_*  ,21,, 15,, 12,, 14.,  A,  ,4.  ,  16.  ,34.  ,42.  , 

42 • ,40. ,1 5. • 10. ,20. ,60. ,4C« ,20. ,990. , 

WANGLE *-45. .-45. ,640. ,22. .45.. 200. ,180. ,180. ,740. , 180*, 13*0. • 

SEND 

CNAW4 _ 

THETKD  *  35., 

VI  *  0.25,  V2  *  0.6, 

ONI  *  0.005.  0M2  *  0.1, 

NOMI  *  30.  NVP 1  *  30. 

PAXHOO  *  8. 

SENO _ _ _ 

ENAH6  ZSCRCT^  37o7  zOBS  *  0.0  EEn5~ 

SNANS  YIELD  *  10. E3  CENO 
CNAHlO  ROBS  *  5600., 

TEIRST  *  16.E3,  TEND  *  21. E3. 

DELTT  *  15., 

10PT  *  11, _ 

CENO 


Figure  3-12.  A  listing  of  the  input  data  used  in  an  effort  to  match 
the  microbarogram  recorded  at  Berkeley,  California,  following  a  blast 
at  Johnson  Island  on  30  October,  1962.  The  synthesized  waveform  is  shown 
in  Figure  3-10  and  is  compared  with  the  empirical  record  in  Figure  4-23. 
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The  value  of  YIELD  would  vary  for  successive  problems.  It  should 
be  noted  that  the  above  would  save  considerable  computer  time 
when  compared  with  the  option  of  taking  NSTART-1. 

To  illustrate  some  of  the  points  discussed  above,  a  listing 
of  a  sample  input  deck  is  given  in  Fig.  3-12.  The  resulting  out¬ 
put  should  include  that  shown  in  Figs.  3-1  through  3-10. 


3,6  FURTHER  DESCRIPTION  OF  THE  OUTPUT 

In  Figs.  3-1  through  3-10  we  show  a  selected  portion  of  the 
output  generated  by  the  program  with  the  input  deck  listed  in 
Fig.  3-12.  This  output  is  representative  of  what  might  be  ob¬ 
tained  during  normal  usage  of  the  program. 

Figure  3-1  gives  the  computer  printout  of  the  basic  model 
atmosphere  used  in  the  calculation  as  derived  from  the  input  data. 
Its  format  should  be  self-explanatory. 

Figure  3-3  gives  the  initial  table  or  pictorial  display  of 
the  normal  mode  dispersion  function  sign  at  points  in  the  phase 
velocity  versus  angular  frequency  plane.  The  +'s  and  -"s  denote 
the  sign,  while  the  X’s  imply  that  the  upper  boundary  condition 
could  not  be  satisfied.  The  row'  correspond  to  different  values 
of  the  phase  velocity  VPHSE.  These  values  in  km/sec  are  listed 
in  the  first  column.  The  columns  correspond  to  different 
angular  frequencies  OMEGA.  The  u>  values  corresponding  to  the  rows 
(from  left  to  right)  are  listed  below  the  figure  in  the  order  in 
which  one  would  read  a  book  (left  to  right,  then  down  a  row.  The 
sequence  1234  etc.  of  numbers  directly  below  the  figure  is  intended 
merely  to  facilitate  counting.  The  number  given  for  the  phase 
velocity  direction  should  be  the  same  as  the  input  value  of  THETKD. 

Figure  3-4  represents  an  expanded  version  of  the  display 
given  in  Fig.  3-3.  This  is  the  result  of  the  expansion  process  to 
fully  resolve  the  modes  which  was  described  in  Sec.  2.7.  Since 
the  rows  and  columns  are  now  unequally  spaced,  the  apparent  graphs 
of  the  dispersion  curves  are  not  in  a  uniform  scale. 

Figure  3-5  gives  a  portion  of  the  tabulation  of  the  dispersion 
curves  for  th®  modes  found  during  the  search  process.  Note  that 
only  the  segment  of  a  mode  which  lies  within  the  search  region  is 
tabulated.  It  also  should  be  noted  that  the  increments  in  OMEGA 
(in  rad/sec)  and  VPHSE  (km/sec)  are  not  uniform.  This  is  an 
attribute  of  the  computational  process  which  was  selected  in  order 
to  obtain  good  resolution  of  both  nearly  horizontal  and  nearly 
vertical  segments  of  the  dispersion  curves. 
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Figs.  3-6,  3-7  and  3-8  each  give  the  same  information  as  in 
3-5  plus  tabulations  of  quantities  which  may  be  of  interest  to 
the  user  and  which  vary  along  the  dispersion  curves.  It  may  be 
questioned  whether  the  printout  in  Fig.  3-5  is  necessary,  but  we 
decided  on  this  superfluous  output  because  of  the  fact  that  the 
information  in  Fig.  3-5  has  a  wider  applicability  than  that  in 
Figs.  3-7  and  3-8.  Also,  the  user  might  wish  to  display  the  dis¬ 
persion  curve  tabulations  alone  without  having  to  explain  away 
the  presence  of  other  data. 

As  in  the  case  of  the  dispersion  curves,  the  data  listed  in 
Fig.  3-6  is  a  function  of  the  model  atmosphere  only.  PHI1  and 
PHI2  are  the  and  $2*  respectively,  introduced  in  Section  2.6. 
The  values  of  these  "potentials"  are  calculated  at  the  ground  and 
at  the  top  of  each  finite  layer  in  the  model  atmosphere,  and 
these  values  are  used  in  later  calculations.  Since  the  profiles 
of  these  functions  might  give  the  user  some  insight  into  the 
physical  significance  of  the  various  modes  in  the  computation, 
Fig.  3-6  shows  a  tabulation  of  profile  parameters,  as  defined  in 
that  printout,  for  each  point  on  the  dispersion  curves  previously 
tabulated. 

The  factor  AMP,  which  is  tabulated  in  Figure  3-7,  is  defined 
by  Eq.  (2.5.4d)  and  depends  on  heights  of  burst  and  observer  but 
is  independent  of  yield.  Also  shown  in  this  figure  are  the  para¬ 
meters  FACT  and  ALAM  (Xq)  which  are  defined  in  Sec.  2.5. 

Figure  3-8  shows  the  form  of  the  tabulation  of  AMPLTD  and 
PHASE,  which  are  defined  in  Sec.  2.5  and  depend  upon  the  yield  of 
the  source  in  addition  to  the  atmospheric  model  and  the  heights 
of  burst  and  observer. 

Fig.  3-9  gives  a  portion. of  the  printout  of  the  total  and 
modal  acoustic  pressures  calculated  in  consequence  of  the  input 
data  shown  in  Fig.  3-12,  while  Fig,  3-10  is  a  reduction  of  the 
corresponding  CALCOMP  plot.  In  both  the  tabulation  and  the  plot, 
pressures  are  given  in  microbars  and  time  in  seconds  after  the 
blast.  On  the  plot,  the  modes  are  drawn  in  ascending  order  be¬ 
ginning  at  the  top,  and  their  total  is  at  the  bottom.  The 
common  pressure  scale  is  determined  automatically  such  that  the 
maximum  amplitude  of  the  total  waveform  will  be  about  2  inches 
on  the  plot.  Note  that  these  formats  for  the  tabulation  and 
plot  are  consequences  of  having  set  I0PT  ■  11  in  the  namelist 
NAM10.  A  description  of  other  possible  output  formats  for 
predicted  acoustic  response  may  be  found  in  the  last  paragraph 
of  Section  3-4. 

For  each  input  case  (i.e.,  for  each  NAM10  read),  the  code 
will  print  all  input  data  and  will  generate  a  tabulation  and  plot 
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of  a  waveform;  however,  whether  the  outputs  shown  in  Figs,  3-1  and 
3-3  through  3-8  are  printed  will  depend  upon  the  current  values 
of  NPRNT  and  NSTART.  If  NPRNT  is  less  than  1,  none  of  them  will 
be  printed;  otherwise,  all  are  printed  which  correspond  to  points 
in  the  calculation  past  the  point  of  entry  specified  by  NSTART. 

For  example,  suppose  that  NPRNT  ■  1  and  NSTART  ■  4.  The  first 
calculations  made  for  this  case  are  those  involving  the  source 
strength  (YIELD),  so  that  the  only  printouts  will  be  the  input 
data,  a  tabulation  of  the  type  shown  in  Fig.  3-8,  and  a  tabulation 
of  responses  (as  determined  by  the  value  of  IOPT). 
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Chapter  IV 


SOME  NUMERICAL  STUDIES 


4.1  INTRODUCTION 

In  this  chapter,  we  present  some  numerical  studies  which  have 
been  made  during  the  past  year  using  the  computer  program  INFRA- 

SOWIC  WAVEFORMS,  which  we  have  described  in  the  preceding  two 

chapters.  These  studies  were  concerned  with  checking  out  the  pro¬ 
gram,  comparing  its  predictions  with  previous  calculations  by 
Harkrider  (1964),  and  in  exploring  some  general  trends.  These 
studies  are  relatively  modest  and  only  scratch  the  surface. 

In  these  studies  we  refer  to  the  individual  modes  using  a 
nomenclature  devised  by  Press  and  Harkrider  (1962).  For  con¬ 
venience  of  reference,  we  review  this  nomenclature  here.  In 
any  plot  of  numerically  obtained  dispersion  curves,  l.e.,  of  phase 
velocity  versus  frequency,  the  modal  curves  fall  into  two  clearly 

defined  groups  -  regardless  of  the  value  of  0.  .  A  sample  plot  is 

shown  in  Fig.  4-1,  The  identification  GRy,  Gk^,  GR^,  etc.  for  the 
so-called  "gravity  modes"  and  SQ,  S^,  S2,  etc.  for  the  so-called 
"sound  modes"  should  be  evident0 from  the  figure.  In  labeling 
these  modes  the  first  step  is  always  to  identify  GR_  and  Sy.  These 
are  two  adjacent  modes  which  are  widely  separated  at  low  fre¬ 
quencies,  GAy  having  a  low  frequency  phase  velocity  of  the  order 
of  the  sound  speed  at  the  ground  and  S  having  one  which  is 
considerably  higher,  of  the  order  of  the  largest  sound  speed  in 
the  atmospheric  profile.  The  two  modes  invariably  become  very 
close  at  a  frequency  of  the  order  of  a  representative  Brunt 
frequency  in  the  lower  atmosphere.  However,  the  two  modes  do  not 
cross.  (The  probable  reason  for  this  absence  of  an  intersection 
is  explained  in  Sec.  2.7). 

Once  GRy  and  Sy  are  identified,  the  remaining  modes  are  labeled 
in  the  order  in  which  they  appear.  Thus  S^,  S?,  Sy,  etc.,  are 
the  modes  corresponding  to  curves  which  would  f>e  encountered  bv 
one  scanning  upwards  and  to  the  right  starting  from  Sy,  while  .R^, 
GR0,  GR„,  etc.,  are  the  inodes  encountered  by  one  scanning 
downwards  and  to  the  left  from  GRy 

4.2  A  COMPARISON  WITH  HARKRIDER’ S  RESULTS 

Since  the  program  is  capable  of  synthesizing  waveforms  when 
the  model  atmosphere  is  without  winds,  it  should  in  principle  be 
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Figure  4-1.  Sketch  showing  the  labeling  scheme  used  in  this 
report  for  the  acoustic-gravity  modes. 
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capable  of  reproducing  computations  carried  out  by  Karkrider  (1964). 
Furthermore j  any  comparison  of  our  calculations  with  Harkrider’s 
should  serve  as  a  means  of  discovering  any  major  coding  errors  in 
the  program.  We  were  therefore  considerably  disappointed  when 
we  first  made  such  a  comparison  and  discovered  substantial 
discrepancies.  Two  fruitless  months  were  spent  in  checking  and 
rechecking  the  program  and  the  theory  before  we  finally  discovered 
that  the  discrepancy  was  due  primarily  to  differences  in  formula- 
tion.  Such  differences  in  the  formulation  evolve  around  how  one 
incorporates  a  model  of  a  nuclear  explosion  into  the  theory. 

To  explain  this  difference,  we  discuss  below  some  of  the 
differences  between  the  mathematical  expressions  used  by  Hark- 
rider  and  those  presented  in  Chapter  II.  In  order  to  avoid  a 
lengthy  review  of  the  Karkrider  theory,  we  use  his  nomenclature 
below.  For  brevity,  ue  do  not  define  all  the  symbols  used,  as 
those  not  defined  here  are  defined  in  Harkrider’s  paper. 

The  Karkrider  theory  gives  the  pressure  waveform  due  to  any 
given  individual  mode  as  being  of  the  form 

-A  a 

p  -  (li}e  s  spJ(D){l1  +  I2>  (4.2.1) 


where 


Xl*2 


{l}{A  }{h) (h}cos[u(t  -  T.)]  dw  (4.2.2a) 

A  A 


00 


*  2j  {L}{AAHM}cos{w[t  -  (ta  +  T^)])dw 

01 

(4.2.2b) 

{b}  *  (2/n)X^2(a  sin  6)  X^2a  p 

e  s  as 

(4.2.2c) 

{L}  = 

(4. 2. 2d) 

(M>  «  (b2  +  w2)-1kx/2 
s  j 

(4.2.2e) 

{ii}  =  exp{(a  /a  )  (a2  -  to2)1/2} 

5  S  X 

(4.2.2f) 
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The  quantity  is  (Y/2)(g/ag)  at  the  burst  altitude.  Note  that 
the  subscript  s  refers  to  the  source  and  that  a  is  the  sound  speed 
at  the  source.  The  quantity  ?e  is  the  radius  of  the  earth,  while 
the  quantity  a  is  a  scaling  length  which  increases  with  yield  Y 
as  YX'J;  X  is8a./a  ;  D  is  source  altitude. 

8  X  S 

The  formula  corresponding  to  Eq.  (4.2.1)  according  to  the 
formulation  presented  in  Chapter  II  is 


p  -  {u}{l/p“ (D)}{l}p*/p® 


(4.2.3) 


where 


I  “  2 


{iC}{AMP}{M}cos[u(t  -  T.  +  t  ) ]dco 

A  as 


{K}  =  -  (ct*/a  )  [p°  (z)p*(D)]1^ 


(4.2.4a) 

(4.2.4b) 


The  quantity  {AMP}  is  as  defined  in  Eq.  (2.5.4d). 

With  some  minor  discrepancies,  it  would  appear  from  a  com¬ 
parison  of  the  two  derivations  that 


(kHahp}=  {l}(aa) 


(4.2.5) 


What  discrepancies  do  appear  would  be  due  to  the  fact  that  we  use 
an  energy  source  model  rather  than  a  mass  source  model.  To 
check  whether  or  not  this  is  the  case  and  as  a  check  on  the 
program,  we  compared  our  {AMP}  with  Harkrider’s  when  source 
and  observer  are  on  the  ground  (i.e.,  z  *  0  and  D  *  0).  In 
this  case  we  should  have 

A  -  -  P°a  {AMT} 

A  oo 

In  Fig.  4-2,  we  show  a  plot  of  (AJIP)  in  km  1  vs.  period  in 
minutes  for  this  case  for  the  U.S.  Standard  atmosphere  with  no 
winds.  This  should  be  compared  with  Fig.  7  in  llarkrider’s  1964 
paper.  Although  the  units  are  not  the  same,  the  general  shapes 
of  the  curves  are  remarkably  similar.  To  check  on  the  quanti¬ 
tative  agreement,  we  took  a  =  1/3  km/sec  and  p  =  12.6  x  10  4  g m/cm3. 
The  maximum  value  of  -p°a  {Xmt}  for  the  GRq  mode  is  then  found 
from  Fig.  4-2  to  be  .01§6°x  10  3  (gm/cm3)/sec.  The  corresponding 
number  in  harkrider’s  graph  (as  best  we  can  read  it)  is  ,013. 

Since  liarkrider  does  not  specify  the  units  on  this  graph,  we 
checked  with  him  concerning  this  and  found  that  1  unit  on  the 
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graph  corresponds  to  10  3  (gm/cm3)/sec.  Thus  the  agreement 
would  appear  to  be  substantial. 

The  analysis  above  still  leaves  several  additional  formal 
differences  which  may  or  may  not  be  of  some  importance,  especially 
for  megaton  class  explosions.  We  enumerate  these  explicitly  below 

-X  a 

s  s 

1)  The  factor  e  in  Eq.  (A. 2.1)  doe:  not  appear  in 
Eq.  (A. 2. 3). 

2)  The  factor  {E}  in  Eq.  (A. 2. 2a)  for  u  <  a.  does  not  appear 
in  our  Eq.  (A. 2.4a). 

3)  The  quantity  T  in  Eq.  (4.2.4b)  for  w  >  0.  does  not  appear 

in  our  Eq.  (A. 2.4a).  X  J' 

A)  The  T  in  Eqs.  (A. 2. 2a)  and  (A. 2. 2b)  is  replaced  by 

T .  -  T  in  Eq .  (A . 2 . 4a) . 

A  as 

Each  of  these  differences  may  be  traced  to  the  methods  in  which 
the  source  model  was  incorporated  in  the  theory.  In  Harkrider *s 
theory,  he  matched  his  formal  solution  to  the  cube  root  scaled 
waveform  (extrapolated  from  1  KT)  which  would  be  received  at  a 
distance  a  directly  below  the  source,  the  distance  a  varying 
with  cube  root  scaling.  In  the  theory  in  Chapter  II,  the  source 
was  taken  as  a  point  source  with  a  time  dependence  chosen  such 
that  the  calculation  would  agree  with  low  yield  explosion  data 
were  the  atmosphere  homogeneous.  It  is  difficult  to  say  with 
certainty  just  which  formulation  is  the  more  nearly  correct. 
However,  one  consequence  of  Harkrider' s  method  is  an  effective 
attenuation  of  high  frequencies  as  yield  is  increased  -  much 
more  so  than  is  indicated  by  the  available  data.  (This  would  not 
have  been  the  case  were  the  reference  point  at  the  same  altitude 
as  the  source.) 

We  consider  the  fourth  distinction  to  be  of  no  consequence  as 
it  only  changes  the  time  origin  without  altering  the  shape  of  the 
waveform.  The  other  three  should  be  relatively  minor  for  low 
yields  but  may  lead  to  large  discrepancies  for  megaton  class 
explosions. 

To  check  the  assumption  that  the  first  three  distinctions 
listed  above  are  responsible  for  any  major  numerical  discrepancies 
between  the  results  computed  using  INFRASONIC  WAVEFORMS  and  those 
given  by  Harkrider,  we  attempted  to  reproduce  the  theoretical 
barograms  in  Harkrider' s  Fig.  13  for  the  direct  wave  as  observed 
at  8000  km  from  a  A  MT  explosion  at  a  burst  height  of  2.13  km. 

We  did  this  first  using  our  program  with  no  alterations  and  then 


modifying  (temporarily)  the  program  to  include  the  factors  1-3 
discussed  above.  The  results  are  shown  in  Figs.  4-3  through  4-8. 

Each  figure  shows  the  graphs  for  a  given  mode  (or  the  total 
response)  as  determined  by  three  different  methods,  Hie  top 
graph  in  each  figure  was  calculated  by  the  unaltered  Pierce- 
Posey  code.  The  second  graph  was  calculated  by  the  Pierce-Posey 
code  with  the  factors  exp[-X  a  ]  and  E  and  the  phase  shift  x 
included  as  noted  above.  Thi  bottom  curve  is  the  corresponding 
graph  from  Harkrider's  Fig.  13. 

If  we  compare  the  unaltered  modes  with  Harkrider's  we  note 
that  the  mode  shapes  are  quite  similar.  However,  three 
significant  differences  do  exist: 

1)  Our  GRq  dies  off  more  slowly  than  does  Harkrider's. 

2)  Our  acoustic  modes  are  much  stronger  relative  to  GRQ 

than  are  Harkrider's.  J 

3)  All  of  our  acoustic  modes  arrive  approximately  3  minutes 
later  relative  to  GR^  than  do  Harkrider's. 

In  our  altered  calculations,  GR.  dies  out  more  rapidly,  the 
acoustic  modes  are  weaker  relative  to  GRQ  than  before,  and  the 
acoustic  modes  arrive  slightly  earlier  relative  to  GRq.  This 
clearly  indicates  that  the  factors  and  phase  shift  considered  are 
the  major  sources  of  differences  between  Harkrider's  synthesized 
waveform  and  ours.  Our  altered  total  response  is  almost  identical 
with  his  up  to  about  26900  sec.,  where  our  S_  begins  to  dominate 
the  sum.  Since  is  not  included  in  Harkrider's  sum,  agreement 
could  not  be  expected  in  this  region. 

The  fact  that  the  altered  waveforms  for  each  mode  have  ampli¬ 
tudes  of  about  2/3  those  reported  in  Harkrider's  figure  may  be 
attributed  in  part  to  the  absence  of  the  factor  p°/p°  in  Harkrider's 
original  formulation.  However,  we  understand  that  tfiis  has  been 
corrected  in  the  version  of  his  program  currently  in  operation. 

This  would  lower  Harkrider's  amplitudes  by  a  factor  of  .76  and 
would  bring  the  two  sets  of  computations  to  a  fair  agreement.  We 
are  not  sure  of  the  cause  of  the  remaining  discrepancy  but  think 
it  might  be  due  to  either  our  use  of  an  energy  source  rather  than 
a  mass  source  or  to  a  different  choice  for  ambient  density  at 
the  ground.  The  similarity  in  shape  of  the  tv/o  waveforms  suggests 
that  the  major  cause  of  the  discrepancy  lias  been  amply  accounted  for. 
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Fipure  4-3.  Comparison  of  mode  CR  as  computed  by  Pierce  and  Posey  and 
by  Hark  rider.  Here  and  in  Fip.s.  4-4  through  4-8,  no  two  curves  are 
neccessarily  on  the  same  pressure  scale,  but  all  use  a  common  time  scale 
The  value  of  a  representative  t rouph-to-neak  pressure  variation  is 
piven  for  each  curve. 
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Fipure  4-4.  Comparison  of  mode  f.  as  computed  by  Pierce  and  Posey  and  by 
llarkrider. 
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Fipure  4-6.  Comparison  of  mode  S9  as  computed  by  Pierce  and  Posey  and  by 
Markrider. 
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Figure  4-7.  Mode  as  computed  by  Pierce  and  Posey. 
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Figure  4-8.  Total  acoustic  pressure  as  computed  hy  Pierce  and  Posey's 
INFRASONIC  WAVEFORMS,  by  the  same  code  modified  as  indicated  in  Sec. 
4.2,  and  hy  Harkrider's  code. 


4.3  GUXRAL  TRENDS 


The  computer  code  INFRASONIC  WAVEFORMS  has  been  utilized  to 
study  the  effects  of  the  various  parameters  of  the  source  (yield, 
height  of  burst)  and  of  the  atmospheric  model  (temperature  and  wind 
profiles,  upper  boundary  condition)  upon  theoretical  microbarograms. 
For  the  sake  of  simplicity  and  economy,  models  of  only  four  to 
seven  finite  layers  plus  the  upper  half-space  were  used  in  this 
initial  study.  The  temperature  profile  shown  in  Fig.  4-9  with 
no  winds  was  chosen  as  a  standard  for  the  purposes  of  comparison. 
Notice  that  this  profile  exhibits  certain  features  of  the  ARDC 
standard  atmosphere:  there  are  two  sound  channels,  one  centered 
at  25  km  and  one  at  85  km,  with  the  model's  minimum  temperature 
in  the  upper  channel.  Most  runs  were  mode  using  a  yield  of  10  MT, 
height  of  burst  of  3  km  and  a  range  of  2000  km.  The  synthesized 
microbarogran  for  the  standard  conditions  is  given  in  Fig.  4-10 
together  with  graphs  of  the  modes  summed  to  arrive  at  the  total 
response. 


The  Upper  houndary  Condition 

As  the  altitude  increases,  the  composition  and  density  of  the 
atmosphere  changes  considerably.  As  the  composition  changes,  the 
application  of  the  perfect  gas  law  becomes  less  appropriate,  and  as 
the  medium  becomes  increasingly  rarified,  the  equations  of  hydro¬ 
dynamics  lose  their  applicability.  However,  under  the  assumption 
that  practically  all  of  the  energy  of  a  given  disturbance  is  below 
100  km,  it  would  seem  that  the  details  of  the  atmospheric  structure 
above  the  ionosphere  should  have  little  effect  upon  the  waveform 
observed  on  the  ground.  This  hypothesis  was  confirmed  by  a 
series  of  runs  in  which  the  atmosphere  below  110  km  was  held 
constant,  while  the  temperature  profile  above  this  height  was 
varied.  While  dominant  frequencies  and  amplitudes  were,  in 
general,  unaffected,  the  details  of  the  individual  modal  waveforms 
did  vary,  and  two  definite  trends  were  observed. 


If  only  the  temperature  in  the  upper  half-space  (Tw)  is  varied, 
one  sees  that  the  two  extremes,  T  small  ("almost"  a  free  boundary) 
and  T  large  ("almost"  a  rigid  boundary)  produce  microbarograms 
which  look  very  similar  (Fig.  4-11).  But,  if  one  compares  the 
tables  of  the  normal  mode  dispersion  function  signs  for  the  two 
cases  (Fig.  4-12),  it  is  clear  that  in  the  process  of  going  from 
one  extreme  to  the  other,  the  dispersion  curves  have  shifted, 
since  the  sign  of  the  normal  mode  dispersion  function  at  any  given 
point  in  the  frequency-phase  velocity  plane  has  been  reversed. 
Examination  of  intermediate  cases  reveals  that  the  shift  has 
been  upward  for  increasing  T^;  i.e.,  the  dispersion  curve  normally 
associated  with  the  GR^  mode  in  the  free  case  moves  upward  and 
assumes  the  shape  and  position  of  the  curve  normally  associated 
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Figure  4-9.  Temperature  profiles  of  the  ARDC  standard  atmosphere 
and  of  the  standard  simplified  atmosphere  used  in  Section  4.3. 
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Figure  4-1C.  Synthesized  microbarogram  and  modal  contributions  for  an 
observer  on  the  ground  2000  km  from  a  10  MT  explosion  3  km  above  the 
ground  in  the  simplified  model  atmosphere  of  Fig.  4-9. 
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Figure  4-11*  Synthesized  microbarograms  corresponding  to  free  and 
rigid  upper  boundary  conditions. 


-91- 


UJ 

Id 

X 

u_ 


g 

<3 

X 


iiiiiiiii+  +  +  +  *t 
|  |  |  |  !+♦  +  +  +  +  +  +'  • 
+  +  +  +  +  +  +  +  +  +  +  I  II  I 
+  +  +  +  +  ♦  +  +  I  I  I  I  I  I  I 
+  +  +  +IIIIIIIIII* 
lll|llllllll-^'^'»' 

iiiii»iii"^-*'-*-''’^T 

i  i  i  i  +  +  +  +  +  +  +  +  +  ■*■  1 
+  +  +  +  +  ++  +  +  +  +  +  I  I  I 
+  +  +  +  +  +  +  +  I  I  I  I  I  I  I 
+  +IIIIIIIIIIII* 

I  t  I  I  I  I  I  +  +  +  +  +  +  +  + 
^  ^  ^  +  ^  +  +  +  +  41  ^ 
+  +  +  I  I 
+  +  +  +  +JIIIIIIIII 

I  I  I  I  I  I  I  I  I  I  •  I  I  •  + 
lllllllJI'*--*--*-*'''*-^ 

+  **■♦"♦■•+  +  +  +  +  +  +  *1’!  I 
i  i  i  i  i  i  i  i  i  i  i  i  i  i  i 

1111111111+  +  +  +  * 
.*.+++++++++  +  +  +  +  + 
i  i  i  i  i  i  i  i  i  i  i  i  i  i  ' 
i  i  i  i  i  i  i  i  i  i  i  i  i  i  i 
i  i  i  i  i  i  i  i  i  i  i  i  i  i  i 


i  i 
i  i 
i  i 


+  i 
i  i 


♦  + 
+  + 
i  i 
i  i 
i  i 
+  + 


i  i  +  +  i 

i  +  +  i  i 

•♦■•*•+11 
+  +  i  i  i 

+  i  i  i  + 

i  i  i  i  ■*■ 

i  i  i  ♦  +• 

i  i  +  +  + 

i  +  +  +  i 

+  +  ♦  i  i 

+  +  +  i  i 

+  +  i  i  i 

i  i  i  i  + 

iiii-*- 

ii+  +  f 
+  +  +  +  * 
+  +  +  +  i 


+  +  +  +  + 

+  i  +■  +  ♦ 

+  i  +  i  + 

+  i  +  i> 

+  +  +  i  + 

i  +  +  +■  + 

i  +  +  +  + 

i  +  +  ♦  + 

i+  +  +  + 

i  +  i  ■*■  + 

+  +!+■  + 

+  *  I  +  + 

+  I  I  +  I 

+  :  i  +  i 

i  i  i  +  i 

i  i  i  +  i 

i  i  i  i  i 


+  +  +  +  i  i  ii  t  + 

+  +  i  i  ii  i  i  +  + 

11111114  +  + 
i  t  i  i  +  +  +  +  +  + 

+  +  +  +  +  +  +  +  +  i 

+  +  +  +  i  i  i  i  i  i 

i  i  i  i  i  i  i  i  i  i 

i  i  i  i  i  i  i  i  i  i 

ii  i  i  i  i  i  t  i  i 

ii  i  i  i  i  t  i  i  i 

i  i  i  i  i  i  i  i  i  i 

ii  i  i  i  i  i  i  i  i 

i  t  i  i  i  t  i  i  i  i 


+  +  +  +  + 

+  +  +  +  + 

*  +  +  +  + 

+  +  +  +  + 

+  +  +  +  + 

+  +  +  +  + 

+  +  +  +  + 

+  +  +  ♦  + 

4,+  +  +  + 


(Das/ui)i)  A1I0013A  3SVHd 


92- 


Figure  4-12,,  Tables  of  normal  mode  dispersion  function  signs  for  the 
cases  of  free  and  rigid  upper  boundary  conditions. 


with  the  S  mode.  For  an  intermediate  case,  for  which  the  modes 
are  in  the  midst  of  their  transitions,  the  modal  disturbances  bear 
little  resemblance  to  those  for  the  extremes,  yet  their  total 
(Fig.  4-13)  does  resemble  that  for  the  extremes,  at  least  for  the 
first  half  hour.  The  suggestion  made  here  is  that  because  the 
dispersion  curves  are  strongly  dependent  upon  Tra,  but  the  waveform 
is  not,  the  modes  which  arise  are  primarily  mathematical  conveniences 
with  limited  physical  significance.  This  contradicts  the  viewpoint 
prevalent  in  much  of  the  current  literature. 

Secondly,  as  soon  as  the  temperature  in  any  layer  is  of  the 
order  of  three  times  any  relative  maximum  for  the  atmosphere  below 
that  layer,  a  rigid  boundary  condition  at  the  bottom  of  that 
layer  is  approximated.  For  example,  the  two  waveforms  presented 
in  Fig,  4-14  show  almost  negligible  difference,  although  they  were 
produced  by  two  different  models,  one  with  T^  *  800°  K  beginning 
at  130  km  and  the  other  with  temperatures  of  800°  K  from  130  to 
150  km,  1000°  I!  from  150  to  200  kn,  and  1500“  V.  above  200  kn.  It 
is  clear  that  the  additional  layers  in  the  second  model  had  little 
effect  upon  the  predicted  microbarogram. 

The  Temperature  Profile 

The  computer  code  being  used  in  this  study  synthesizes  micro- 
barograms  oy  summing  the  theoretical  contributions  from  guided  modes. 
In  general,  there  are  three  types  of  ducting  mechanisms  which  might 
produce  guided  modes:  (a)  Lamb  mode  ducting,  (b)  sound  channel 
ducting,  and  (c)  discontinuity  ducting,  (See  Figs.  4-15  through 
4-170  A  Lamb  mode  exists  in  an  isothermal  atmosphere  due  simply 
to  the  presence  of  the  ground.  Its  energy  density  decays  expo¬ 
nentially  with  altitude.  A  sound  channel  exists  at  any  altitude 
where  the  sound  speed  profile  has  a  relative  minimum.  The  third 
phenomenon  which  might  contribute  to  ducting  is  a  tendency  in  some 
circumstances  for  wave  energy  to  be  concentrated  near  discontinuities 
or  in  the  region  of  large  gradients  of  the  sound  speed. 

Since  we  are  generally  concerned  with  the  waveform  observed  at 
the  ground  due  to  a  source  near  the  ground,  one  would  guess  that  the 
most  important  influence  would  be  from  Lamb  mode  ducting,  with  the 
effect  of  a- »ound  channel  being  to  strengthen  or  weaken  the  Lamb 
mode,  depending  upon  its  altitude  and  strength.  The  only  large 
sound  speed  gradients  in  the  atmosphere  are  at  great  heights.  Thus, 
our  earlier  consideration  of  the  effect  of  the  upper  boundary 
condietion  tells  us  that  this  mechanism  could  not  significantly 
contribute  to  ducting,  except  that  a  free  or  rigid  boundary  pro¬ 
hibits  radiation  of  energy  away  from  the  earth  and  produces  micro- 
barograms  (Fig.  4-11)  which  decay  more  slowly  than  those  for 
intermediate  cases  (Fig.  4-13). 
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Figure  4-13.  Pressure  waveform  for  a  case  intermediate  to  the 
free  and  rigid  upper  boundary  conditions.  Here,  Tro  -  300°  K. 
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Figure  4-14,  Synthesized  microbarograms  for  (a)  an  atmosphere  with 
T  «  800°  K  beginning  at  130  km  and  (b)  an  atmosphere  with  temperatures 
of  800°  K  from  130  to  150  km,  1000°  K  from  150  to  200  km  and  1500°  K 
above  200  km. 


-95- 


c 


ACOUSTIC  PRESSURE 
PROFILE 


SOUND  SPEED 


Figure  4-15.  Sketch  illustrating  the  mechanism  of  Lamb  mode 
ducting.  In  an  isothermal  atmosphere,  the  Lamb  mode  has  its 
maximum  pressure  at  the  ground  and  decays  exponentially  with 
height. 


Figure  4-16.  Sketch  illustrating  the  mechanism  of  sound 
channel  ducting.  The  energy  of  the  disturbance  is  concentrated 
in  the  region  of  a  relative  sound  speed  minimum. 
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Figure  4-17.  Sketch  illustrating  the  phenomenon  of  discontinuity 
ducting.  The  pressure  has  its  maximum  value  at  the  discontinuity 
in  sound  speed  and  decays  exponentially  with  distance  from  it. 
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The  hypothesis  that  Lamb  mode  ducting  is  the  principal  mechanism 
of  propagation  for  the  acoustic-gravity  wave  under  consideration  is 
discussed  in  more  detail  in  Chapter  VI,  Here  the  effects  of  the 
two  sound  channels  in  the  standard  atmosphere  are  investigated. 

Since  we  assume  that  the  atmosphere  has  constant  composition  and 
obeys  the  perfect  gas  law,  the  sound  speed  is  proportional  to  the 
square  root  of  the  absolute  temperature.  The  sound  soeed  profile 
of  our  standard  model  is  shown  in  Fig.  4-18,  along  with  the 
sound  channel  variations  studied.  Variation  1  eliminates  the  lower 
channel,  2  increases  the  sound  speed  in  the  upper  channel  so  that 
the  minimum  is  in  the  lower  channel,  and  3  eliminates  the  upper 
channel. 

Examination  of  the  microbarograms  (Figs.  4-19,  20,  21)  cor¬ 
responding  to  the  three  variations  reveals  a  strong  dependence 
upon  both  sound  channels,  since  all  three  waveforms  are  different 
and  none  resembles  the  standard,  by  looking  at  the  GRq,  Sq  and 
modes,  we  see  that  their  shapes  and  relative  sizes  seem  to  de¬ 
pend  most  strongly  on  the  location  of  the  minimum  sound  speed  in 
the  model.  That  is,  the  modes  for  variation  1  most  resemble  those 
of  the  standard,  while  the  modal  patterns  of  variations  2  and  3 
resemble  each  other.  Also,  the  entire  CR^  mode  is  almost  the 
same  for  all  cases,  indicating  that  it  is  probably  governed  most 
strongly  by  Lamb  ducting.  Mode  S(J  shows  its  largest  contribution 
to  the  ground  level  microbarogram  in  the  t\;o  cases,  variations 
2  and  3,  when  the  model  has  its  minimum  sound  speed  in  the  lower 
channel.  This  might  mean  that  S(,  tends  to  concentrate  its  energy 
near  the  minimum  sound  speed,  although  to  put  much  emphasis  on 
this  possibility  would  be  somewhat  inconsistent  with  our  earlier 
conclution  that  the  modes  are  of  limited  physical  significance. 

The  Wind  Profile 

In  studying  the  effects  of  winds,  we  fi^d^it  convenient  to 
define  an  equivalent  sound  speed,  c  *  e  +  v*i,  where  c  is  the 
sound  speed,  v  is  the  wind  velocity  vector,  and  i  is  a  horizontal 
unit  vector  in  the  direction  of  propagation.  Two  windy  models 
which  were  used  to  produce  theoretical  microbarograms  (Fig.  4-22) 
both  have  c  profiles  the  same  as  the  standard  atmosphere,  but 
one,  variation  4,  has  a  c  profile  equal  to  the  c  profile  of 
variation  1,  and  the  other,  variation  5,  has  a  c  profile  equal 
to  the  c  profile  of  variation  2,  Notice  that,  even  though  winds 
are  actually  treated  in  a  much  more  sophisticated  manner  than 
simply  using  c  in  the  place  of  c  (see  Chapter  II),  the  results 
imply  that  the  sophistication  has  only  slight  effect  on  the  predicted 
waveforms.  The  microbarograms  for  the  windy  atmospheres, 
variations  4  and  5,  very  strongly  resemble  the  records  for  the 
windless  models  having  the  sane  profiles  (variations  1  and  2, 
respectively).  Thus,  as  long  as  the  wind  speed  in  every  layer  is 
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Figure  4-18.  Sound  speed  profile  for  the  standard  temperature 
profile  shown  in  Figure  4-9  and  three  variations  studied. 
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Figure  4-19.  Microbarograra  and  three  of  the  modes  calculated 
using  sound  speed  variation  1  (See  Fig.  4-18). 
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Figure  4-20.  Microbarograa  and  three  nodes  calculated  using  sound 
speed  variation  2  (See  Fig.  4-18). 
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Figure  4-21,  Microbarogran  end  three  nodes  cslculsted  using  sound 
speed  variation  3  (See  Fig.  4-  18). 
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Figure  4-22.  Microbarograu  synthesised  using  th«  windy  atsospheric 
■odals  referred  to  aa  variations  4  and  5  in  the  text. 
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much  less  than  the  speed  of  sound  for  that  layer,  the  major  effect 
of  the  wind  is  simply  to  change  the  effective  sound  speed  profile. 
In  retrospect,  it  would  appear  that  one  need  not  incorporate  winds 
into  the  computer  code;  instead  he  may  use  the  device  described 
above. 

Source  Parameters 

Test  runs  in  which  the  source  parameters  were  varied  indicated 
(1)  that,  for  bursts  well  below  the  sound  speed  minimum  in  the 
lower  channel,  the  height  of  burst  has  relatively  little  effect 
on  the  shape  of  the  generated  wave  and  only  slight  effect  on  its 
amplitude  and  (2)  that ‘ the  yield  of  the  explosion  has  little 
Influence  upon  either  the  wave's  shape  or  the  ratio  P'  -  (wave 
atuplitude/yield).  In  one  example  studied,  P'  fell  by  4%  as  the 
yield  went  from  18  HI  to  30  MI.  Iliff  (private  communication, 
1970)  has  studied  both  of  these  types  of  variations  in  con¬ 
siderably  more  detail  using  INFRASONIC  WAVEFORMS  and  finds  that 
the  height  of  burst  effect  is  very  significant  at  altitudes  above 
10  km.  In  particular,  the  wave  amplitude  on  the  ground  tends  to 
increase  with  height  of  burst  up  to  an  altitude  of  the  order  of 
40  km  for  megaton  class  explosions  and  then  decreases  with 
increasing  altitude.  Also,  the  ratio  P'  shows  the  smallest 
variation  with  yield  for  the  earliest  portion  of  the  waveform; 
the  variation  may  be  considerable  for  the  later  arrivals. 


4.4  A  COMPARISON  WITH  EMPIRICAL  DATA 

On  30  October,  1962,  the  United  States  exploded  a  thermo¬ 
nuclear  bomb  of  the  megaton  range  near  Johnson  Island.  The 
collection  of  observed  microbarograras  published  by  Donn  and  Shaw- 
[1967]  contain  several  records  made  following  this  blast,  one 
of  which,  the  Berkeley  record,  appears  exceptionally  free  of 
noise  and  appears  representative  of  what  might  be  expected  for 
a  waveform  under  ideal  circumstances.  (This  judgment  is  not 
solely  that  of  the  authors,  since  this  waveform  was  chosen  by 
others  for  the  cover  of  the  program  of  the  Symposium  on  Acoustic 
Gravity  Waves,  Boulder,  Colorado,  July.  1968.)  Thus,  it  was 
felt  that  this  was  the  waveform  which  we  might  have  the  best 
chance  of  matching  with  a  theoretical  synthesis. 

In  preparing  the  input  for  the  program  INFRAS0NIC  WAVEFORMS, 
the  most  important  decision  is  the  choice  of  a  model  atmosphere. 
Unfortunately,  there  are  three  categories  of  atmospheres  which 
strongly  affect  the  waveform  received:  the  atmosphere  near  the 
source  determines  the  relative  excitation  of  the  modes,  the 
atmosphere  along  the  path  of  the  disturbance  determines  how  the 
wave  propagates,  and  the  atmosphere  above  the  observer  determine 
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the  ground  strengths  of  the  modes.  Moreover ,  none  of  these 
atmospheres  is  constant  over  time  or  has  winds  and  temperatures 
which  are  functions  of  altitude  alone.  Thus,  in  light  of  the 
fact  that  our  model  can  neither  be  representative  of  the  entire 
range  of  atmospheric  profiles  above  the  path  nor  display  the 
inconsistency  and  horizontal  inhomogeneity  of  any  real  atmosphere, 
exact  agreement  between  theory  and  experiment  would  not  be 
expected.  Nevertheless,  general  agreement  might  be  hoped  for. 

An  atmospheric  model  was  constructed  to  represent  the  average 
conditions  between  Johnson  Island  and  Uerkeley  for  the  month  of 
October.  The  temperature  profile  (Fig.  3-1)  was  taken  from 
Valley’s  Handbook  of  Geophysics  and  Space  Environments,  Figures 
2.2,  2.4,  and  2.5,  and  the  wind  profile  (Fig,  3-1 )  was  taken 
fron  Valley's  Figure  4.11  and  Table  4.21  and  from  the  1965 
COSPAR  International  Reference  Atmosphere,  p.  46. 

Since  the  actual  yield  and  height  of  burst  for  the  source 
was  not  knotm,  they  were  set  arbitrarily  at  10  MT  and  3  km, 
respectively.  A  range  of  5600  km  and  direction  of  propagation 
of  35*  north  of  east  were  used.  For  a  copy  of  the  complete  input 
data,  see  Fig.  3-12. 

The  synthesized  waveform  agrees  surprisingly  well  with  the 
observation  (Fig.  4-23),  both  having  the  same  time  of  arrival, 
a  5.5  minute  period  for  the  first  major  cycle,  and  the  same 
dominant  periods  and  relative  amplitudes  for  about  35  minutes. 
Since  Donn  and  Shaw  did  not  give  the  amplitude  of  their  record, 
an  amplitude  comparison  cannot  be  made  here.  On  the  first  major 
cycle  of  the  synthesis,  there  is  a  variation  of  about  300  ybars 
from  peak  to  peak. 
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Figure  4-23.  Comparison  of  theoretical  and  observed  tnicro- 
barograas  for  Berkeley,  California,  following  a  nuclear  blast 
near  Johnson  Island,  30  October,  1962,  A  listing  of  the  com¬ 
plete  input  data  for  the  synthesis  is  given  in  Fig.  3-12. 


Chapter  V 


AN  APPROXIMATE  METHOD  BASED  ON 
CAGNIARD'S  INTEGRAL  TRANSFORM  TECHNIQUE 


5.1  CAGNIARD'S  METHOD 

Cagniard's  method  is  a  technique  utilizing  mathematical  proper¬ 
ties  of  functions  of  a  complex  variable  which  allows  one,  under 
certain  circumstances,  to  invert  Fourier  transforms.  The  technique 
dates  back  to  Lamb's  classic  paper  (1904)  on  the  propagation  of 
elastic  transients  on  the  surface  of  an  elastic  half space,  but  its 
significance  was  not  realized  until  the  1930 's  when  Cagniard,  Pekeris, 
and  Smirnov  and  Sobolov  independently  discovered  that  the  technique 
may  be  applied  to  a  much  more  general  type  of  problem  and  developed 
the  mathematical  techniques  in  a  more  suitable  form.  The  resulting 
method  is  generally  called  Cagniard's  method,  probably  because  of 
the  fact  that  Cagniard's  book  (1939,  1962)  was  the  first  treatise 
on  the  subject  to  become  known  by  the  general  seismo logical  conunity. 

Cagniard's  method  is  generally  acknowledged  to  be  extremely 
complicated.  This  is  due  partly  to  the  amount  of  algebra  Involved 
in  using  the  method,  to  the  fact  that  it  does  involve  some  intricate 
mathematical  ideas,  but  primarily  (in  the  authors'  opinion)  due  to 
the  rigorous  style  with  emphasis  on  generality  in  Cagniard's  book. 

The  method  was  very  little  used  until  the  mid  1950 's  when  C.H.  Dix 
attempted  to  give  a  simpler  explanation  of  the  method  and  demonstrated 
the  fact  that  it  leads  to  feasible  quantitative  predictions.  Since 
the  late  1950' s  a  large  number  of  papers  have  appeared  on  the  subject 
with  a  wide  scope  of  applications  besides  seismology. 

In  general  terms,  one  may  consider  Cagniard's  method  to  be 
concerned  with  the  evaluation  of  integrals  of  the  form 


Mx.t) 
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e“iWtF(£,w)  dw  d"k 


(5.1.1) 


where  the  number  of  dimensions  of  k  may,  for  all  practical  purposes, 
be  restricted  to  1  or  2.  For  certain  restricted  types  of  kernel 
functions  F(k,w),  Cagniard's  method  provides  a  sequence  of  mathe¬ 
matical  manipulations  which  allows  one  to  exactly  transform  the 
above  to  an  expression  of  the  form 

<Kx,t)  ■  f0  f(T)I(t-T,x)  dT  (5.1.2) 
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where  I(t  -  T,x)  is  a  relatively  simple  (compared  to  (5.1.1)  ) 
expression  to  evaluate.  In  some  cases  it  may  be  single  closed 
expression,  or  it  may  involve  one  or  two  integrations  with  finite 
limits.  This  is  a  substantial  achievement  as  Integrals  such  as 
(5.1.1)  generally  defy  direct  numerical  integration  because  of  the 
Infinite  limits  and  the  fact  that  the  integrands  are  highly  oscilla¬ 
tory. 

Integrals  of  the  form  of  Eq.  (5.1.1)  arise  often  in  studies  of 
wave  propagation  in  stratified  media  —  particularly  for  waves  gene¬ 
rated  by  sources  which  are  point  and  line  sources.  Thus  one  may 
wonder  as  to  just  what  types  of  stratification  does  the  method  apply. 
As  best  we  can  tell,  from  an  examination  of  cases  for  which  the 
method  has  been  applied  previously,  the  principal  restriction  on 
F(k,ui)  is  that  it  must  be  expressible  as  a  sum  of  one  or  more  terms 
of  the  form 

F(k,u>)  2  f(u>)eluu(k,w)  (5.1.3) 

A  *■ 

where  f(u)  is  a  function  of  u,  and  where  T  and  D  are  functions  of  k 

and  u)  which  may  each  be  considered  (subject  to  some  mathematical  fine 
points)  as  a  function  of  k /to.  The  Identification  described  above  can 
be  made,  in  particular,  for  a  point  source  in  a  layered  stratified 
medium,  where  each  discrete  layer  is  such  that,  were  it  extended  to 
infinite  thickness,  propagation  of  any  plane  wave  pulse  in  the  layer 
would  be  nondlsperslve.  This  type  of  identification  would  seem 
evident  from  various  mathematical  formulas  given  in  Brekhovskikh's 
treatise  (1960)  on  waves  in  stratified  media. 


5.2  THE  APPROXIMATION  OF  NEGLECT  OF  VERTICAL  ACCELERATION 

It  is  apparent  that  Cagniard's  method  cannot  be  applied  to  the 
propagation  of  acoustic-gravity  waves  per  se  since  these  waves  are 
Inherently  dispersive.  The  counterpart  of  a  homogeneous  medium  for 
such  waves  is  an  isothermal  atmosphere  and  it  was  demonstrated  by 
Hines  (1960)  that  plane  waves  in  such  a  medium  are  dispersed.  Thus, 
Cagniard's  method  would  appear  inapplicable  to  an  integral  such  as 
that  appearing  in  Eq.  (2.3.1). 

However,  it  appears  that  there  is  one  rather  simple  approximation 
under  which  Eq.  (2.3.1)  may  be  put  into  a  form  which  is  amenable  to 
Cagniard's^method.  This  is  where  one  neglects  the  vertical  acceleration 
term  p  D  we^  in  Eq.  (2.1.4a).  Whether  or  not  neglecting  this  term  is 
justified  is  somewhat  debatable.  However,  its  neglect  leads  to  such 
considerable  simplification  that  one  feels  compelled  to  explore  its 
consequences . 


-110- 


We  were  led  to  the  observation  described  above  by  a  paper  written 
by  Row  in  1966.  Row  sought  to  obtain  the  transient  wave  generated  by 
a  point  source  in  an  unbounded  isothermal  a'&osphere  with  the  neglect 
of  the  effects  of  the  ground.  The  theory  developed  led  to  a  single 
integral  over  angular  frequency  where  the  integrand  was  essentially 
the  Green's  function  determined  by  Pierce  (1963)  and  by  Dikii  (1962) 
for  a  harmonic  point  source.  In  order  to  evaluate  the  integral.  Row 
used  the  artifice  of  formally  equating  u>g  ■  (y  -  1)1/  g/c  and 
a>A  ■  yg/(2c),  which  amounts  to  taking  Y  *  2.  On  examination  of  Row's 
result,  we  found  that  it  could  also  be  approximately  interpreted  as 
arising  from  the  neglect  of  vertical  acceleration.  It  was  natural 
then  to  ask  if  this  idea  could  not  also  be  used  in  other  situations 
where  the  atmosphere  was  not  isothermal.  Pursuing  this  point  led  to 
the  discovery  that  Cagniard's  method  applied  when  the  vertical  acce¬ 
leration  is  neglected. 

While  the  approximation  may  seem  somewhat  drastic,  there  are 
several  factors  Involved  which  suggest  that  the  physical  significance 
of  the  results  may  not  be  entirely  negated  and  that  its  inherent 
inadequacies  may  be  offset  by  the  fact  that  it  leads  to  a  theory 
which  does  not  necessitate  using  some  of  the  approximations  pecular 
to  the  multi-mode  theory  described  in  Chapter  II  (such  as  neglect 
of  branch  line  integrals,  neglect  of  leaky  modes,  and  the  truncation 
of  integrals  over  b>). 

In  the  first  instance,  the  approximation  of  neglecting  vertical 
acceleration  would  seem  to  be  most  appropriate  at  lower  frequencies. 
Since  the  first  major  cycle  in  empirical  waveforms  normally  has  a 
period  in  the  range  of  5  minutes,  it  would  seem  that  some  low- 
frequency  approximation  might  be  applicable  in  the  calculation  of 
the  earliest  portion  of  the  wavetrain. 

While  the  approximation  does  lead  (as  is  demonstrated  in 
subsequent  sections)  to  an  instantaneous  propagation  in  the  vertical 
direction  (which  is  clearly  wrong) ,  we  might  consider  this  shortcoming 
to  be  not  too  serious  since  we  are  concerned  with  propagation  to  large 
horizontal  distances.  Furthermore,  what  calculations  we  have  performed 
for  the  theory  outlined  in  Chapter  II  suggest  that  the  vertical  acce¬ 
leration  near  the  ground  at  large  distances  are  very  small  compared 
to  the  longitudinal  accelerations  for  the  earliest  part  of  the  wave. 

One  clear  cut  advantage  of  the  method  is  that  it  leads  to  a  calculable 
solution  which  is  clearly  causal  —  which  is  not  true  for  the  theory 
embodied  in  the  computer  program  INFRASONIC  WAVEFORMS.  This  would 
also  suggest  that  we  might  do  better  for  the  earliest  part  of  the 
waveform  with  the  Cagniard's  method  theory.  Of  course,  the  final 
test  of  this  would  be  in  the  comparison  of  results  with  experiment. 
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5.3  FORMAL  DESCRIPTION  OF  CAGNIARD ' S  METHOD  FOR  ACOUSTIC-GRAVITY  WAVES 

We  consider  the  same  problem  as  posed  in  Sec.  2.1.  The  only 
distinction  is  that  we  replace  Eq.  (2.1.4a)  by  the  two  equations 


Po^Dt“H  +  "  ”VhP 

(5.3.1a) 

dp/dz  *  -gp 

(5.3.1b) 

corresponding  to  the  approximation  discussed  in  the  preceeding  section. 
Then,  the  solution  of  (5.3.1),  (2.1.4b),  and  (2.1.4c)  is  of  the  form, 
for  acoustic  pressure  p, 

p  «  I  fg(x)G(t  -  T,x,y,s,zo)dT  (5.3.2) 

»  —00 

where  the  Green’s  function  G  represents  the  response  to  a  point 
impulsive  source  (xq  «  0,yQ  *  0). 

The  Fourier  integral  expression  for  G  £s  essentially  the  same 
as  Eq.  (2.3.1),  one  distinction  being  that  fj,(w)  is  replaced  by  1/2it. 

Thus  we  have 


G(t,x,y,Zj 

■•o’  ■  h  L  L  c‘k'x  { CL 

dul  dk  dk 
/  x  y 

where 

A 

n  a 

k<z>  i 

%  i  /»<*.*„>  ! 

(5.3.4) 

If  * 

.P«Uo>. 

n[w  -  k.v(z  )]  lzJl(0)Yu(0)i 
o 

with 

*<*»*0>  “  tZu(zo)  "  8Yu(zo)]Vz)  zo  >  Z 

« 

(5.3.5a) 

■  trA<*0>  -  gYt(.0)]zuw  . 

(5.3.5b) 

Y  -  $^/c 

(5.3.6a) 

Z  -  g$j/c  -  c4>2 

(5.3.6b) 

Subscripts  i  and  u  have  been  omitted  from  the  last  two  equations  for 
brevity.  The  above  are  essentially  the  same  as  Eqs.  (2.3.12),  (2.3.13), 
and  (2.6,1).  The  only  formal  appearance  of  the  effect  of  the  neglect  of 
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vertical  acceleration  is  in  the  ordinary  differential  equations 
(residual  equations)  satisfied  by  and  $2*  These  are 


•  _d_ 

*i 

\l  A12 

'*i 

=  dz 

*2 

CM 

< 

H 

CM 

<  1 

*2 

(5.3.7) 


where 


A11  *  8fc2/fi2  "  Yg/2c 


a12  «  1  “  c2k 2/ft2 


a21  -  82k2/ft2c2 


A22  “  ~A11 


(5.3.8a) 

(5.3.8b) 

(5.3.8c) 


Note  that  these  are  the  sane  as  Eqs.  (2.6.3)  except  that  A.,  does 
not  have  the  term  -ft2/ c2  present  in  Eq.  (2.6.3c).  The  quantities 
(*l«t*2o)  and  ^iu,(t2u^  are  Particular  solutions  of  the  above 
residual  equations  --only  that  the  first  satisfy  the  upper  boun¬ 
dary  condition  ($^  ■  0  at  Z  »  0)  while  the  second  set  satisfies 
the  upper  boundary  (4>  and  $>  analytic  and  bounded  for  w  >  e, 
k  real,  and  all  z  >  0J.  1 

The  anglys^s  preceding  Eqs.  (2.4.2)  and  (2.4.3)  shows  that  we 
may  select  G(u,k)  to  be  such  that 


G(w,k)*  -  G(-ui*,-k*) 


G(to,k)  ■  -G(-w,-k) 


(5.3.9a) 

(5.3.9b) 


A  third  symmetry  property  follows  from  the  fact  that  the  new  set  of 
coefficients  depend  on  w  and  k  only  through  tlje  combination  k2/ft2, 
or  alternately,  only  through  the  combination  k/w.  If  we  examine  the 
consequences  of  this  we  find  that  we  may  take 


[w  —  k  •  v(zq)] 


D(w,k) 


(5.3.10) 


where 


D(w*,k*)  ■  D(w,k)* 


(5.3.11a) 
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If  D  is  D  on  the  real  axis  just  above  the  branch  line  and  D^ 
is  D  on  t^e  real  axis  just  below  the  branch  line,  we  nay  show 
(k  real)  that 


Da(u,k)  -  Db*(w,k) 

If  we  use  polar  coordinates  for  k,  then 
D#  (-<*>,  k,6fc)  -  Da(u,k,6k+v) 

follows  from  Eq.  (5.3.11b) 

With  these  preliminaries,  we  may  now  describe  Cagniard's  method 
(or  at  least  the  authors*  version  of  the  method)  as  it  applies  to  the 
problem.  For  t  <  0,  G  vanishes.  For  t  >  0  we  deform  the  Integration 
contour  to  enclose  the  entire  lower  half space  in  the  clockwise  sense. 
This  contour  is  then  shrunk  to  enclose  all  poles  and  the  branch  line 
(Fig.  5-1)  and  the  residue  theorem  is  utilized  to  pick  up  the  contri¬ 
bution  from  the  poles.  This  gives  us 


G- 


Po(l) 


P_(*  ) 
o  o 


i  [i«. +  s  v 


where  the  branch  line  contribution  is  given  by 


(5.3.19) 


e~iwt 


do  (5.3.20) 


and  a  particular  pole  contribution  is  given  by 

ikv  t 

r2w  it  *  f  kA  e  n  i 

k  dk  d0.  elk,X  ( - S-5 - (5.3.21) 

*o  kkv  -  v(z  )  •k-' 

n  o 

In  the  above  we  neglect  the  pole  associated  with  the  zero  of  u  -  k*v(z  ). 
The  integral  along  the  branch  line  is  interpreted  as  a  principal  value. 


2tt 


f 

*  n 


As  for  the  branch  line  contribution,  we  let  u  ■  vk  and  change  the 
a)  variable  of  integration  to  one  over  v.  Then  we  perform  the  k  inte¬ 
gration  first.  Doing  this  gives 


f2TT 


BL 


de. 


dv 


(1<D.J-  ■!**)  }  f  .lk[R  k  dk  (5.3.22) 

'v  -  ek*  v(z^)-'  •'o 
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Figure  5-1.  Sketch  showing  contour  deformation  in  the  complex  u 
plane  for  positive.- times. 
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p%*« 


where 

Vl,2  “  V*»  +  2cJ (Y-D^/yI  (5.3.23a) 

ek  -  (cos  8k)ex  +  (sin  6k)ey  (5.3.23b) 

It  should  be  noted  that  v1  and  v-  are  functions  of  8,  .  Also,  D  is  a 

function  of  v  and  8.  .  a 

k 

The  pole  contributions  may  similarly  be  expressed  as 

r2ir  A  ik[R  cos(8-0,)-v  t] 

I  -  2tt  d8  - —S - -  e  n  k  dk  (5.3.24) 

"  Jo  k  [vn  -  I<zo>-^)  Jo 


Here  R  is  the  net  horizontal  distance  from  the  source. 

Next,  we  may  show,  using  various  properties  described  above,  that 
the  contribution  to  the  integrand  in  either  (5.3.22)  or  (5.3.24)  from 
8k  +  it  is  just  the  complex  conjugate  of  that  from  @k.  Thus  we  set 


■e+ir/2 

6-TT/2 


* v^  vv  -  e^v(zo)J  Jo 


ik[R  cos(0-8,  )-vt] 
e  K  k  dk 


(5.3.25) 


f8-Mr/2  A  r®  ik[R  cos  (0-8.  )-v  t] 

I  -  4nRe  dO.  - J - —  .  k  "  k  dk 

'0-ir/2  [v  -  v(z  )*e.  ]  ^o 

1  n  o  k'* 


At  this  point  we  introduce  some  minor  approximations  which  would 
not  be  approximations  at  all  were  there  no  winds.  We  formally  replace 

e  *►  cos  (kvt) 

in  Eq.  (5.3.25).  The  justification  for  this  is  that  (D-D  *)/v  is 
even  in  the  absence  of  winds.  Also,  for  the  pole  contribution,  the 
terms  I  can  be  paired  (I  ,I_  )  in  the  absence  of  winds  where  v  »  v  . 
The  residues  A  would  have  the  property  that  A  »  A_  and  thus  n  we  n 
might  interpret  the  quantity  A  /v  as  being  even  in  n,  and  consequently 
we  might  let  n  n 

-ikv  t 

£  (A  /v  )e  n  ■*  En  2 (A  /v  )  cos  kv  t 
n  n  n  n>u  n  n  n 
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These  idees  lead  to  the  expressions 

f9+ir/2  rv„  i(D.  -  D_*) 


ij>l  *  2  Re  | 


P*  je  p  *.  r 

•  0— tt/2  dv^  v  -  ejt»v(*Q)  'o 


ikR  cos  (0-6.  ) 

e  *  cos  (kvt)  k  dk 


I  +  I  «  8tt  Re 
n  -n 


/0+1 T/2 


L 


d0. 


8— tt/2 


[v 


. A_—  r 

-  v(*Q)*ek]  * o 


ikR  cos (0-0.) 

e  K  cos  (kv  t)  k 

Q 


Another  approximation  we  introduce  in  the  same  spirit  is  to  set  0^  •  0 
in  the  argument  of  v.,  v*,  D  ,  e.  ,  v  ,  and  A  .  This  is  justified  in 
the  absence  of  winds  and  would  seem  to  be  appropriate  with  winds 
included  since  the  Integrand  contribution  is  heaviest  near  0^  ■  0. 

With  this  approximation  we  have 


hi  ■  f2  dv 

V1 


I  +  I  -  Air 
n  -n 


i(D  -  D  *) 
a  a 


y  -  ek-v(zo)J0  .  0 


M(R,vt) 


L[vn  -  v(zo)-ek]J6k  .  0 


M(R,vnt) 


where 


M(R,vt)  *  2  Re 


JT 

'o  Jo 


ikR  sin  0  ,,  .*  .  ,. 

e  cos  (kvt)  k  dk  d0 


(d/ dt )/ 2  Re  f  f*  eikR  sin  8sin  (kvt)  dk  d0 
*0  '  o 


l|  (5.3. 


26) 


The  indicated  integral  can  be  shown  to  be 

2  Re  f  f  eikR  sin6sin(kvt)  dk  d0  -  “  ^  (5.3.27) 

'o  d o  [(vt)2  -  RaP 

where  U  is  the  Heaviside  step  function. 

Finally,  we  combine  the  results  above  and  obtain 

P  *  P  BL  +  n$0  Pn  (5.3.28) 


dk 
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where 


PBL  “  “2 


».<«>  f  fv2  1  f1(D.  -  y> )  r  f 

°o(lo>J  Jvj  T*T  l»  -  Jk-»('„>^  ’  '• 


ft-R/|v|  f*  (T)  dT 


[v2(t-t)2  -  R2] 
(5.3.29a) 


5}dv 


p  *  -871 
*n 


po<z>  1 

h 

_l_ 

L  *"  1  1 

rt-R/v  fVT> 

n  t. 

_co(zo>_ 

V 

n 

Vn  “  ^o*' V0 

[v2(t— t)2  -  R2]*5 
n 

(5.3.29b) 


In  the  above  expression,  v  is  considered  as  being  positive  and  the 
sum  over  n  is  over  only  those  "modes"  having  positive  phase  velocities. 

The  physical  interpretation  of  the  above  solution  is  that  the  total 
waveform  is  the  sum  of  a  "lateral  wave"  (the  branch  line  integral)  plus 
a  sum  of  guided  mode  waveforms.  Each  guided  mode  is  nondispersive  and 
has  a  speed  vr.  The  shapes  of  various  guided  mode  waveforms  are  similar. 

The  relative  simplicity  of  the  results  must  be  emphasized.  The  t 
integration  is  over  finite  limits  and  should  be  easily  performed  on  a 
digital  computer.  The  only  lengthy  problem  would  be  that  of  finding 
the  v  and  A  for  the  guided  modes.  However,  this  could  be  done  with 
only  a  sligh?  modification  to  the  existing  program  INFRASONIC  WAVEFORMS. 
The  lateral  wave  might  be  more  difficult  to  evaluate  (since  it  involves 
two  integrations)  but  we  would  expect  its  contribution  to  be  small  for 
most  cases  of  interest.  We  should  also  point  out  that  there  is  no 
apparent  restriction  on  the  atmospheric  profiles  for  which  the  above 
theory  might  be  applied. 


5.4  THE  ISOTHERMAL  ATMOSPHERE  AS  AN  EXAMPLE  OF  THIS  METHOD 


The  only  example  which  we  have  explored  in  any  depth  using  the 
method  of  the  previous  section  is  that  where  the  ambient  atmosphere 
is  isothermal.  In  this  event  the  function  D  appearing  in  Eq.  (5.3.10) 
Is  given  by 


iy|z-z  I 

-i{Me 


+  Ne 


iy | z+z 


where 


(5.4.1) 


(5.4.2a) 
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(5.4.2b) 


N 


JL 
2  v 


(ip  -  c"1  (w2  -  wj)'2} 

[-ip  -  c-1^  :  OJg)^] 


(ip  +  wA/c] 


(5.4.2c) 


The  plus  sign  in  (5.4.2a)  corresponds  to  z  >  z,  while  the  minus  sign 
corresponds  to  z  >  z  .  The  quantity  p  hasa  branch  line  between 
-(ajg/o)  )c|kj  and  fw  ?wA)c|kf .  Its  phase  is  between  0  and  tt  in  the 
upper  naif  of  the  u)  plane. 


The only  poles  are  at  u)«  ±  c|kj  and  lie  on  the  real  axis  to  the 
left  and  right  of  the  branch  line.  The  residue  at  the  positive  pole 
is|k|A^  where1 

-(1  -  y/2)  (g/c2)  j z  +  z  j 

Ax  •  g(l  -  y/2)e  0  (5.4.3) 

Thus,  from  Eqs.  (5.3.28)  and  (5.3.29),  we  have 

P  -  PBL  +  Pj_  (5.4.4) 


where 


-4 


px  -  -8tt 


<V“*)C 


0  {  r/v  — l£l!L-ri 

•  l  U.  [v2  (t  -  T)2  -  R2]^ 


f’E(T)  dr 


(g/c)  (1  -  y/2)e 


'-«•  {v*(t  -  T)2  -  Rz ] 

-(1  -  y/2)  (g/c2)|z  +  z  | 


dv  (5.4.5a) 


•t-R/c  f'E(t)  dT 

•  -»  [c2(t  -  T)2  -R2)** 

Here 

(  -iK1  -  z  |  _  -iK|z  +  z  | 

Q  »  (2/v2)Re  iHe  °  +  Ne  0 


(5.4.5b) 


(5.4.6) 


where 


M  --  ^  {(Y.^Xg/c2)  *  iK} 


(5.4.7a) 
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5  ■  -(8/2»{TK-i-^-~  $$‘1}  f"1K  +  <V/2)g/c!]  (5. 4.7b) 

K  -  g[(Y  -  l)/v2  -  (y/2)/c 2]Js/c  (5.4.7c) 

In  the  event  the  presence  of  the  ground  is  neglected,  there  is  no 
guided  wave  and  the  term  with  N  does  not  appear  in  (5.4.6). 

We  have  carried  out  a  modest  amount  of  calculations  using  the 
above  formulas,  taking  f £ (t)  to  be  a  delta  function.  The  quantity 
p^  then,  for  t  >  R/c,  has  a  t  and  R  dependence  given  by 


pi 


uv  -  R !fn 


(5.4.8) 


and  thus  falls  off  as  1/t2  at  large  t.  The  direct  wave  is  oscillatory 

in  general.  The  nature  of  the  oscillation  can  be  described  if  we  let 

v  ■  R/t  and  examine  the  factor  exp{-iK|z  -  z  I],  Thus 

o 

PBL  s  {amplitude}  cos  {g|z  -  zq | £ (y  -  l)t2/R2  -  (Y/2)c_2]is  +  phase  factor} 

(5.4.9) 

The  angular  frequency  as  a  function  of  time  is  then 
g|z  -  z  | (y  -  1) t/R2 

a)  s  - 2 -  (5.4.10) 

c[(y  -  1) t2/R2  -  (y/2)c”2] 2 

which  is  large  at  early  times  and  which  asymptotically  (large  t  and 
fixed  R)  approaches 


(5.4.11) 


which  is  essentially  the  sam._  ?s  Row's  to  .  The  difference  is  that 
the  R  above  is  horizontal  distance  rather  than  total  slant  path 
distance.  As  long  as  |z  -  z  |/R  <<  1,  our  result  agrees  with  Row's. 
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Chapter  VI 


THE  SINGLE  MODE  THEORY 


b.l  INTRODUCTION 

The  calculations  presented  in  Chapter  IV  and  by  previous 
authors  (Scorer,  Pekeris,  Harkrider,  etc.)  suggest  that  the 
earliest  portion  of  the  waveform  (say,  the  first  three  cycles) 
received  at  large  distances  may  be  considered  as  associated 
with  a  single  composite  mode.  This  point  of  view  has,  in  par¬ 
ticular,  been  espoused  with  considerable  eloquence  by  Garrett 
and  by  Bretherton  in  some  very  recent  papers  on  the  subject. 

We  find  this  point  of  view  to  be  appealing  by  virtue  of  the 
fact  that  it  may  lead  to  a  satisfactory  method  for  taking 
into  account  some  effects  which  are  neglected  in  the  formulation 
of  the  multi-mode  theory  presented  in  Chapter  II.  Such  effects 
would  include  far  field  nonlinear  effects,  departures  of  the 
atmosphere  from  perfect  stratification,  attenuation  by  viscosity 
and  thermal  conduction,  and  large  scale  irregularities  in  the 
earth's  terrain. 

Another  virtue  of  a  single-mode  theory  would  be  its  inherent 
simplicity.  The  computational  procedure  represented  by  INFRA- 
SOHIC  WAVEFORMS,  regardless  of  how  good  one  regards  the  theory 
on  which  it  is  based,  is  sufficiently  complicated  that  its 
consequences  can  only  be  explored  by  numerical  experiment.  The 
large  number  of  possible  parameters  which  must  be  specified  in 
order  to  construct  a  single  waveform  make  it  very  difficult  to 
draw  any  succinct  simple  cause  and  effect  relationships  between 
any  one  of  these  parameters  (for  example,  yield)  and  particular 
features  of  the  waveform.  This  would  probably  be  a  minor 
handicap  from  a  practical  standpoint,  given  the  existence  of 
the  computer  program,  if  we  possessed  a  reasonable  knowledge  of 
the  atmosphere's  state  at  the  time  the  explosion  took  place. 

In  practice,  however,  this  is  not  the  case,  as  the  atmosphere 
is  always  imperfectly  known  at  any  given  time.  The  usual  ex¬ 
perimental  situation  is  where  a  number  of  waveforms  are  re¬ 
corded  at  various  points  and  where  a  limited  knowledge  of  the 
explosion  and  of  the  atmosphere  is  possessed.  The  typical 
analysis  problem  would  be  to  use  this  data  and  whatever  else 
is  known  to  determine  a  refined  description  of  the  atmosphere 
and/or  the  explosion.  Borrowing  a  term  from  exploration  geo¬ 
physics,  this  might  be  designated  the  inverse  problem  ui  infra- 
sonic  wave  propagation.  In  principle,  given  an  adequate  theory 
and  a  numerical  procedure  for  synthesizing  waveforms,  we  can 
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solve  this  inverse  problem  (or  at  least  find  a  possible  range 
of  solutions  and  a  most  probable  solution)  by  trial  and  error 
in  repetitive  calculations  with  systematic  variation  of  input 
parameters.  Obviously,  this  could  be  a  very  expensive  and  time- 
consuming  process.  Thus,  a  strong  case  can  be  made  for  an 
attempt  to  find  a  simple  model  where  the  number  of  input  para¬ 
meters  is  greatly  reduced. 

Insofar  as  the  theory  embodied  in  IHFRASONIC  WAVEFORMS  is 
concerned,  the  possibility  of  using  it  to  solve  the  inverse 
problem  is  severe '.y  limited  by  the  fact  that  it  is  restricted 
to  perfectly  stratified  atmospheres.  The  data  showing  ampli¬ 
tude  variations  with  observer  location  exhibited  by  Wexler 
and  Hass  following  the  largest  Soviet  explosion  strongly  sug¬ 
gest  that  departures  from  stratification  are  of  considerable 
significance.  On  the  other  hand,  the  present  theory  is  already 
so  complicated  that  it  appears  prohibitively  difficult  to  extend 
it  to  include  departures  from  stratification.  A  possibility 
would  be  a  tradeoff  -  altering  the  theory  to  take  the  non¬ 
stratification  into  account  at  the  expense  of  the  accuracy  which 
might  be  expected  were  the  atmosphere  perfectly  stratified. 

In  this  respect,  the  single  mode  theory  might  represent  a  very 
convenient  compromise. 


6.2  LAMB'S  MODE 

In  1910,  Horace  Lamb  demonstrated  that  a  single  guided  mode 
exists  for  the  isothermal  atmosphere  with  no  winds.  In  retro¬ 
spect,  the  existence  of  this  mode  is  very  curious  as  the  normal 
criterion  for  ducting  in  conventional  (gravity  neglected) 
acoustics  would  seemingly  preclude  its  existence. 

The  formulas  for  Lamb's  mode  are  trivially  extended  to 
include  constant  horizontal  wind.  For  convenience  of  reference, 
we  summarize  the  result  here.  The  acoustic  pressure  p,  density 
p,  horizontal  fluid  velocity  deviation  u,  and  vertical  fluid  velo¬ 


city  w  are  given  by 

p  «  e  F(xH,t)  (6.2.1a) 
p  =  c”VBZ/c2  F(xu,t)  (6.2.1b) 
u  =  e“Rz/c2  U(xH,t)/po(z)  (6.2.1c) 
w  -  0  (6. 2. Id) 
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where  F  and  U  satisfy 


[3/3 1  +  v*V,  ]U  =  -V„F  (6.2.2a) 

tl  1* 

[3/3t  +  v*V.  ]F  +  c2V  *U  -  0  (6.2.2b) 

11  li 


or 


[3/3 1  +  v*Vy]2F  -  c2V2F  -  0  (6.2.3) 

which  is  the  two  dimensional  wave  equation  for  nondispersive  pro¬ 
pagation.  In  the  above,  x..  is  horizontal  displacement  and  ^  is 
the  horizontal  component  or  the  gradient,  i.'ote  that  c  and  v  (hori¬ 
zontal  wind)  are  considered  constant  in  the  above. 

The  plane  wave  solution  of  (6.2.3)  is 

F  -  F  e‘i[ut  “  k**1 
o 

where  to  and  k  satisfy  the  dispersion  relation 
(w  -  k«v)2  -  c2k2 

Since  this  gives  k/o  as  being  independent  of  frequency,  the  pro¬ 
pagation  is  nondispersive. 

The  relative  simplicity  of  Eqs.  (6.2.2)  and  (6.2.3)  must  be 
emphasized.  Although  the  disturbance  is  in  a  three  dimensional 
space,  these  equations  only  involve  two  spatial  coordinates. 
Furthermore,  the  coefficients  in  these  equations  are  constant  - 
a  substantial  simplification  for  propagation  in  an  inhomogeneous 
medium. 

It  would  appear  that,  if  a  single-mode  theory  of  infrasonic 
propagation  were  to  be  developed,  the  mode  selected  should  be 
that  which,  for  more  realistic  atmospheres,  is  the  counterpart  of 
Lamb's  mode  for  an  isothermal  atmosphere.  This  follows  since  the 
principal  disturbance  contributing  to  the  waveform  observed  at 
ground  level  is  one  which  moves  very  nearly  with  the  ground  speed, 
which  is  only  slightly  dispersive,  and  which  has  very  little  ver¬ 
tical  movement  (as  contrasted  with  horizontal  movement)  associated 
with  it.  Garrett  and  Uretherton  have  succeeded  in  finding  this 
mode  for  a  stratified  atmosphere  which  is  nearly  isothermal  and 
which  has  nearly  constant  winds.  We  give  a  modified  derivation 
(with  slightly  different  results)  below: 
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<p  2v  dz 


(6.2*12) 


<f2dz 


Then,  substituting  (6.2.11)  into  (6.2.10),  we  find 


k 2/a£  -  i/c£ 


(6.2.13) 


where 


^.1 


4>  2  c  2  dz 


U>  2  dz 


(6.2.14) 


In  what  follows  we  refer  to  Vj  as  the  average  wind  velocity  and  to 
as  the  average  sound  speed  'for  the  Lamb  mode. 

One  should  note  that  tq.  (6.2.13)  is  exactly  the  same  disper¬ 
sion  relation  as  was  obtained  for  Lamb's  mode  in  an  isothermal 
atmosphere  with  constant  winds. 

From  Eqs^  (6^2. 8a, b),  keeping  just  the  first  order  terms  in 
c2  -  c2  and  v  -  Vj  and  using  (6.2.13),  we  find 

(6,2.15a) 
(6.2.15b) 


Z  =  f1  [1  +  G22  -  w|l)(A  +  B*k/flL))F 


Y  -  v[C  +  D«kA2  ]F 


where  A,  B,  C,  D  are  functions  of  z,  given  by 
z 

<}>2(J  dz 


(6.2.16a) 


z 

t 


<p2D  dz 


(6.2.16b) 
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C  *  |<j>  2(cl2  -  c  2)dz 


(6.2.16c) 


D  «  (2/c2)|  4>~2(v  -  vL)  dz 


(6.2.16d) 


We  have  also  defined  the  average  Brunt's  frequency  for  th® 
Lamb  mode  by  the  relation 


<4  -  (Y-Dg2/c2 


(6.2.17) 


If  we  examine  the^nex£  highest  order  correction (which  is  second 
order  in  c2  -  c2  and  v  -  v^)  to  the  dispersion  relation  (6.2.8^), 
we  find,  after  some  algebra  and  the  use  of  the  definitions  of  v. 


and  c^,  that 


(k2/fl£  -  c72]  f2  dz  +  (3c“2P~2)j  <j)“2lk‘(v-vL>]2  dz 


-  (S)2  -  w2)  cp2  [C  +  I)»k/fiT  ] 2  dz  »  0 

L  oL  L 


(6.2.18) 


This  is  essentially  the  same  as  the  dispersion  relation  derived  by 
Garrett.  It  should  be  noted  that  the  presence  of  the  last  term 
makes  the  mode  <£ispersive.  The  integral  should  be  convergent 
since  (:(“>)  and  D(<»)  are  both  zero. 


To  the  same  order  of  approximation,  we  may  write  the  dispersion 
relation  for  a  wave  traveling  with  wave  normal  in  the  direction 
of  k  in  the  form 


“  "  k<CL  +  VLk  +  -  k(k‘  -  kM.)hk 


(6.2.19) 


where 


->■  ->■ 
V  a  V  •  e. 
Lk  L  k 


(6.2.20a) 
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*kk  ■  13/<2cl»‘ 


[v  -  v^'e^V2  dz 


(6.2.20b) 


U  2  dz 


i2  ■  w2  /c2 
BL  BL'  L 


(6.2.20c) 


hkk  -  (l/2)c 


J<p2lc  +  D»ek/cL32  dz 

j$“2  dz 


(6.2.20d) 


Here  e^  is  the  unit  vector  in  the  direction  of  k.  One  should  note 
that  and  h^  may  each  be  considered  as  the  Cartesian  components 
of  a  tensor. 

If  we  had  a  hypothetical  pulse  propagating  in  the  e,  direction, 
such  that  all  frequency  components  can  be  considered  as  Deing  plane 
(or  line)  waves  (^in  the  horizontal  plane)  with  the  same  wave 
number  direction  e^,  this  pulse  could  be  represented  as  a  Fourier 
integral  in  the  form 


tjj(t , s)  -  2  Re  I(k)e‘i(wt  “  ks)  dk 


(6.2.21) 


•f 

where  s  ®  e  *x  distance  in  the  direction  of  k  and  to  is  con¬ 
sidered  as  a  function  of  k.  Then,  if  w(k)  is  given  by  (6.2.19), 
it  must  follow  that  the  wave  variable  satisfies  the  equation 

3y/3t  +  [c^  +  v^^  +  ak^]3ij;/3s  +  h^(3z/3s2  +  k2L)(3^/3s)  *  0 

(6.2.22) 


which  may  be  recognized  as  an  equation  which  in  many  other  con¬ 
texts  is  generally  called  the  linearized  Korteweg-de  Vries 
equation. 


6.3  FAR  FIELD  NONLINEAR  EFFECTS 

In  this  section  we  generalize  the  linearized  Korteweg-de  Vries 
equation  governing  pulse  propagation  in  the  Lamb  mode  to  include 
accumulative  nonlinear  effects.  We  assume  at  the  outset  that  such 
effects  are  weak  and  that  their  primary  effect  is  to  distort  the 
waveform.  In  this  respect,  we  consider  that  the  only  appreciable 
nonlinear  effect  is  represented  by  the  fact  that  c_  and  v.  should 
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be  the  height  averaged  sound  speed  and  wine  velocity,  given  the 
fact  that  the  ambient  medium  is  altered  by  the  presence  of  the 
wave  uisturbance.  Thus  we  replace 

Ml 

CL  *  CL  <6. 3.1a) 


V  *  vLk  (6.3.1b) 

in  the  dominant  terms  (zeroth  order  in  v  -  v  and  c  -  c* )  in 

(6.2.22).  L  L 


To  determine  we  set 


Y(P0  +  p) 
c 


(P0  +  P) 


(6.3.2) 


in  Eq.  (6.2.14)  such 


that,  to  the  first  order. 


J<j)  2  dz 


The  fact  that  $  also  depends  on  c  is  not  important  as  it  leads  to 
nonlinear  terms  of  first  order  in  c2  -  c2  which  are  considered 
small.  To  obtain  the  lowest  order  nonlinear  correction,  we  may 
approximate 


i_  [L  _  eT 

c2  >Po  Poy 


(Y  -  1)  £_  -  1_  (Y  -  D 
Y  '  P0  ~  c2  Y 


F 


1/Y  -  1 

■  o 


using  Eqs.  (2.3.4a),  (6.2.5),  (6.2.15a)  and  various  relations 
appropriate  to  the  case  when  the  atmosphere  is  isothermal.  Using 
some  additional  approximations,  we  find 

c?L  =  c  (1  +  [ (y  -  l)/(2y)]vp(z  )/p  (z  )}  (6.3.3) 

L  L  g  O  g 


where 
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}  [p0C«)/P0(xg)](3/T  -  2>  dz 
z 

v  -  ^ -  (6.3.4) 

{  tP0(x)/P0(xg)l(1/Y  *  U  dz 
z 

g 

In  a  similar  manner,  we  compute 


~  vLk  +  ^“MpU^/p^g))  (6.3.5) 

where  v  is  the  same  as  in  Eq.  (6.3.4). 

With  Eqs.  (6.3.3)  and  (6.3.5),  the  modified  pulse  propagation 
equation  (6.2.22)  becomes 

Wt  +  ^  +  \k  +  *kk  +  cL^Y  +  1>/2Ylvtp(2g)/po(zg)]}34»/38 

+  hkk(3a/3s2  +  k2L)  (3ij>/3s)  -  0  (6.3.6) 

This  equation  will  be  nonlinear,  since  p(z  )  is  a  function  of  ij>, 
regardless  of  what  we  choose  ip  to  represen?.  [For  example,  we 
could  take  \p  to  be  p(z  ).]  The  above  equation  is  generally  re¬ 
ferred  to  as  the  Korte§eg-de  Vries  equation. 


6.4  DISSIPATION  EFFECTS 

Ve  next  consider  the  modification  to  Eq.  (6.3.6),  i.e.,  the 
Korteweg-de  Vries  equation,  due  to  the  dissipation  caused  by 
viscosity  and  thermal  conduction  in  the  atmosphere.  Specifically, 
we  derive  an  extra  term  which  represents  the  correction  due  to 
the  effects  of  these  phenomena.  In  carrying  through  the  deri- 
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5.  a*.  ^ 


->r  - 


vation  we  neglect  nonlinear  effects  -  with  the  assumption  that 
terms  which  are  both  nonlinear  and  which  involve  viscosity  and 
thermal  conduction  are  of  negligible  influence  on  the  waveform. 

There  are  essentially  two  broad  types  of  dissipation  which 
may  be  considered  -  bulk  dissipation  and  wall  dissipation.  The 
former  is  the  dissipation  which  occurs  when  any  wave  propagates 
in  an  unbounded  medium,  while  wall  dissipation  ls;that  which 
occurs  due  to  the  presence  of  the  ground.  The  former  takes 
place  primarily  at  high  altitudes  because  of  the  decrease  of 
ambient  density  with  height,  while  the  latter  takes  place  dose 
to  the  .ground  in  a  thin  boundary  layer.  A  priori,  we  assume 
that  bulk  dissipation  is  the  more  Important  and  we  accordingly 
neglect  wall  dissipation.  We  have  not,  however,  investigated 
this  quantitatively  as  yet,  and  we  plan  to  do  so  in  later 
studies.  In  what  follows  we  proceed  on  the  assumption  of  negli¬ 
gible  wall  dissipation. 

The  general  procedure  we  adopt  is  to  first  write  out  the 
equations  of  hydrodynamics  with  viscosity  and  thermal  conduction 
included  and  then  derive  the  linearised  first  order  equations 
for  acoustic  perturbations  to  an  ambient  state.  This  ambient 
state  is  taken  to  be  height  stratified  and  time  Independent  as 
described  in  Sec.  2-1.  Hie  source  term  is  neglected  at  the 
outset,  since  we  are  here  concerned  with  propagation  at  distances 
somewhat  removed  from  the  source  location. 

The  modified  equations  then  become 

♦ 

p0lV  +  "  “VP  **  8P®a  +  Oo^/Ox^e^ 

Dtp  +  V ^pQu)  -  0 

(Dtp  +  u«Vpo)  -  cz(Dtp  -  u*VpQ)  -  DE 
where 

°±i  “  +  -  (2/3)6^V»u]  +  56^V*u  (6, A. 2a) 

DE  *  2n(Y  -  1) (3v/9z)» [3u/3z  +  VuzJ  +  (ycv)_1V»{kV[(yp  -  c2p)/pQ]} 

(6. A. 2b) 

Uere  n  is  the  dynamic  viscosity,  5  is  the  bulk  viscosity,  c  is 
the  specif ie  heat  per  unit  mass  at  constant  volume  and  K  isvthe 
thermal  conductivity.  The  above  result  neglects  fluctuations  in 


(6. A. la) 
(6.A.lb) 
(6.A.lc) 
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cy»  tl»  and  K  due  to  the  presence  of  the  disturbance.  The 
remaining  symbols  have  the  same  meaning  as  used  in  Chapter  2. 


If  we  next  consider  a  planar  disturbance  gf  fixed  angular 
frequency  w  and  fixed  horizontal  wave  number  k,  such  that 


P 


(6.4.3) 


with  analogous  relations  for  density  p,  vertical  fluid  velocity 
1#,  etc.,  and  impose  the  condition  0(c)  *  0  at  z  ■  z  ,  we  find, 
after  a  lengthy  analysis,  that  8 


z 

-Y (0/ii)p“1/Y  -  |  P^1/Y  “  X){-i[l  -  cV/8*]$  -  Q}  dz  (6.4.4) 
z 

rr 

o 

where 

Q  -  (c2/fi2)  {  (3 /3 z)  (n (ik20  +  3[S*i]/3z)) 

“  [  (4/3)n  +  ?]k2£*u  +  i£k23w/3z} 

+  (l/8){2n(Y  -  1)  (3v/3z) •  [du/dz  +  i$0] 


+  (Ycv)"10/3z)[k0/3z){y?  -  c20)/po)] 


-  (Ycv)”1k2K(Y?  -  c20)/po>  (6.4.5) 

A 

A  priori,  we  expect  Q  to  be  small.  Thus  it  would  seem  appro¬ 
priate  to  neglect  all  quantities  in  this  expression  which  are 
known  to  be  small  for  the  unattenuated  Lamb  mode.  In  particular, 
we  neglect  all  terms  involving  0.  Also,  since  we  expect 


«kc 


we  neglect  all  terms  involving  3v/3z.  In  addition,  it  would  appear 
to  be  sufficient  to  take  the  plane  wave  relations 

|5  *  f>/c2  ;  ■  8p/po 

A 

and  thus  to  express  Q  entirely  in  terms  of  p.  Thus  we  obtain 
Q  -  (c2/a2){(3/3z)nO  Wp0)/3z]  -  [(4/3)n  +  dk28^/po} 

+  l(Y  -  l)/(8cv)](3/3zrK3/3*(?/po)]  -  k2K0/po) 
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Next,  since  n  and  <  are  relatively  slowly  varying  with  height ,  and 
ft  Is  also  slowly  varying,  and  since,  in  the  Lamb  mode, 

!stf/P0>  ~  I(Y  -  l)g/c2]^/p0 
we  can  further  approximate  the  above  by 

Q  -  [{c*/ftHl<Y  -  i)V/c*]n  -  [(4/3)n  +  elk2) 

+  Uy  -  l)/(ftcv)J{I(Y  -  1)V/C%]  -  k2}x]^/po 

(6.4.6) 

If  we  desire  a  dispersion  relation  for  the  Lamb  mode  which 
includes  dissipation. .we  may  obtain  one  by  simply  taking  the 
guided  condition  Op”  '  +  0  as  z  «.  From  Eq.  (6.4.4)  we  would 
have 


JpU/YJ-l^m  .  cV/ft2]^  -  Q>  dz  -  0  (6.4.7) 

0 

Then,  to  obtain  a  lowest  order  dispersion  relation,  we  simply  set 
ft  -  ftL  and  take 


-/  (g/c2)  dz 

$(z)  -  (D)(l/ca)e  0  (6.4.8) 

as  is  appropriate  to  the  Lamb  mode  in  lowest  order.  Here  D  is 
any  constant.  In  this  manner,  we  obtain 

1  -  c£k2/ft£  -  -12pd(k2-  k2)/ftL  (6.4.9) 

where 

f{c2[4/3  n  +  Cl  +  (Y  -  1)k/c  }$"2p“l  dz 
2y  .  -  1— - - - 2 -  (6.4.10a) 

J«T*  dr 

[ (Y  -  l)2(g2/c2)tn  +  (Y  -  1)k/c  ]4>’*2p”1  dz 
u2  -  1 - 2 -  (6.4.10b) 

j{c2I(4/3)n  +  cj  +  (Y  -  l)tc/cv}(j!"2p”1  dz 
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and  where 


,  “(2  -  YJ^g/c1)  dr 
4  2  -  (l/c2)e  b 

is  the  same  as  used  previously. 

Then  to  first  order  in  y^  we  find 

VX  “  °Lk  "  lyd(k2  “  kd} 


(6.4.11) 


(6.4.12) 


which  corresponds  to  the  wave  equation 

(d 2 


It*  (CL  +  'Wtl  “  Pd 


ds 


+  k2 
2  d 


4 


(6.4.13) 


This  should  be  compared  with  Eq.  (6.3.6).  It  should  be  noted  that 
the  term 


4 


represents  the  presence  of  dissipation,  Tims  we  have  a  correction 
tern  to  add  to  that  equation.  The  general  relation  would  be 


||  +  {(cL  +  vLk  +  akk  +  cLt(y  +  l)/2y]vp(0) /pQ (0)}3ty/3s 


+  hkk(32/3s2  +  k2L) (3^/3s)  -  yd02/3s2  +  kJXj*  -  0  (6.4.14) 

In  analogy  with  the  usual  nomenclature,  we  might  term  this  the 
Korteweg-de  Vries- Burgers 1  equation  for  propagation  in  the  Lamb 
mode. 

The  presence  of  the  terra  k^  is  an  interesting  byproduct  of 
the  height  stratification  of  the  Lamb  mode.  Formally,  it  repre¬ 
sents  a  negative  damping  and  arises  from  the  fact  that  there  is 
a  continuous  transfer  of  energy  from  high  altitudes  to  low 
altitudes  (or  conversely,  depending  on  the  wave's  phase)  due  to 
the  fact  that  the  amplitudes  of  u  and  p/p  increase  with  altitude. 
In  order  for  the  wave  to  maintain  the  stratification  associated 
with  the  Lamb  mode,  one  roust  assume  that  this  energy  Is  con¬ 
tinuously  being  extracted  from  the  ambient  medium.  This  k^ 
term  is  important  only  for  very  low  frequency  propagation  and 
would  seem  to  imply  that  the  mode  is  weakly  unstable  at 
sufficiently  low  frequencies. 
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We  cannot  ascertain  whether  this  is  a  real  instability  or 
merely  a  fiction  of  our  mathematical  technique.  However,  in,  any 
event,  the  growth  of  the  instability,  if  it  did  exist,  would  be 
of  such  a  slow  rate  that  it  probably  would  not  be  possible  to  de¬ 
tect  it  in  practice. 


6.5  HORIZONTAL  RAY  PATHS 

The  discussion  up  to  now  has  assumed  the  ambient  atmosphere 
to  be  independent  of  horizontal  coordinates  x  and  y.  If  this  is 
not  so,  we  expect  that  much  of  the  preceding  can  be  salvaged  if 
the  variation  with  these  coordinates  is  sufficiently  slow.  The 
propagation  at  long  distances  would  still  locally  appear  as  pro¬ 
pagation  of  planar  waves^ (almost  constant  direction  for  the 
horizontal  wave  numbers  k).  Thus  we  might  assume  the  energy  (or 
whatever  we  might  associate  with  th6  wave)  propagates  along  hori¬ 
zontal  ray  paths. 


0 

Let  us  consider  a  particular  characteristic  feature  of  the 
waveform  which  is  received  at  some  time  t£x)  at  locations  having 
a  position  x  on  the  ground.  (Th£  vector  x  lias  only  x  and  y  com¬ 
ponents.)  A  line  of  constant  x(x)  may  be  termed  a  wavefront. 

In  the  absonce  of  dispersion,  uissipation,  ann  nonlinear  effects 
(all  of  which  we  assume  to  be  small)  this  wavefront  moves  out 
from  the  source  with  a  speed  c  (the  height-averaged  speed)  when 
viewed  by^someone  moving  with  the  local  height-averaged  wind 
velocity  v.  .  Tiius  if  someone  moved  with  speed 


-*■ 

dx 

dt 


(6.5.1) 


lie  would  always  be  05  a  wavefront  (assuming  he  was  initially  on 
a  wavefront),  itere  is  the  unit  outward  pointing  normal  to  the 
wavefront 

ek-VT/(Vx|  (6.5.2) 


Since,  for  small  dt,  one  must  have 

x(x)  +  dt  *  X(x  +  [dx/dt]dt) 

from  the  identification  of  dx/dt  as  wavefront  velocity,  it  follows 
that 

Vx*dx/dt  *  1 
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or 

Vt*{clVt/|Vt|  +  vL>  ■  1 


This  gives  us  the  following  partial  differential  equation  for  T 
(the  elkonal  equation) 


(1  -  Vt*v.)2 

(Vt)  2  - - - 

(6.5.3) 

cl 

or,  if  we  abbreviate 

k  *  Vt 

(6.5.4) 

we  have 

k2  -  (1  -  £*vl)2/cJ 

(6.5.5) 

Since  k  has  the  units  of  inverse  velocity,  we  refer  to  it  as  the 
wave  slowness  vector. 

We  next  consider  just  how  this  parameter  k  woul<£  varj  with 
time  when  viewed  by  someone  moving  with  the  speed  c  e.  +  v.. 

We  note  that  v  u 


{(cLefc  +  vl)«V}Vt 


where  we  have  used  Eqs.  (6.5.2)  and  (6.5.3).  Let  us  note  that 


32T  + 

K  5\5*b  8 


1  a 

2  ^3 


-  -^((Vt)2] 
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(1  -  Vfv.)2 
- -il-Vc.  - 

.3  L 


°L 


(1  -  VfvL) 
_ “ 


V[VfvL] 


Thus, 


-*•  (1  —  k*v  ) 

A\e  v-  /  ^  4  ^  4 

f - J - -  *X  -  7»-vl)  +  vL.Vk 


(1  -  k*vL) 


VcL  -  ka,vLa  *  vU.[ak0/8xB  ‘  V^a1  *B 


The  last  term  vanishes  since  Vxk  -  0.  Using  an  identity  from  vec¬ 
tor  analysis,  we  then  obtain 


dk 

dt 


Cl  *  k*v  ) 

- —  Vc.  -  (Jc»V)v.  -  kx  (Vxv  ) 

C,  L  L  L 


(6.5.6) 


The  above  relation  plus  the  Eq.  (6.5.1),  which  we  rewrite  as 


dx 

dt 


+  v. 


1  -  k»VvT 


(6.5.7) 


gives  us  two  coupled  vector  equations  (or  four  coupled  scalar 
£quati«jns)  which,  given  vL  and  c^  as  functions  of  x,  and,  given 
k  and  £  at  some  time  t  ,  enable  us  to  determine  £  ray  trajectory 
x(t),  k(t),  as  a  funct?on  of  time  t.  The  curve  x(t)  represents 
what  we  might  term  a  horizontal  ray  path  in  the  x,y  plane.  There 
are,  in  actuality,  a  family  of  such  paths.  We  distinguish  various 
members  of  the  family  by  a  parameter  6  (whos£  precise  definition 
is  deferred  to  later)  and  accordingly  write  k(t,6)  and  x(t,6). 

The  basic  assumption  we  make  here  is  that  propagation  along 
a  horizontal  ray  path  is  such  that  the  dispersion,  nonlinear  dis¬ 
tortion,  and  dissipation  of  the  pulse  is  governed  by  only  the  state 
of  the  atmosphere  immediately  above  the  path.  Thus  we  set  the 
acoustic  variables  as  being  of  the  form 

p  «  P(s,e,*)^(s,t,0) 
u  *  U(s,6,z)ij)(s,t,0) 
p  -  Q(s,6,z)iJ)(s,t,0) 


(6.5.8a) 

(6.5.8b) 

(6.5.8c) 
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where  s  is  a  parameter  characterizing  distance  along  the  path 
(although  not  precisely  equal  to  distance)  and  where  \p  satisfies 
the  partial  differential  equation  (614.14) (i.e.,  the  Korteweg-de 
Vries-Burgers  equation)  with  the  coefficients  being  considered  as 
functions  of  s  and  6, 

A  definition  of  s  may  be  obtained  from  the  fact  £hat  an  in¬ 
crement  ds  represents  a  distance  in  the  direction  of  e.  .  Thus, 
if  one  follows  a  horizontal  ray  path  with  the  speed  given  by  (6.5.7) 
one  should  have  s  changing  at  the  rate 


*  .1  A 

dt  \  dt 


CL  + VLk 


Thus,  if  di.  is  the  increment  of  distance  along  the  path,  we  have 


ds  \  +  VLk  °L  +  VLk 

*  H +  + 


It  would  appear  that,  in  the  usual  case  where  v*  «  c£,  it  would 
be  adequate  to  take  ds/di  »  1. 


The  remaining  question  we  need  consider  is  how  the  amplitude 
quantities  P,  U,  and  Q  vary  with  height  z  and  with  the  parameter  s. 
It  would  appear  that  the  former  variation  should  be  that  appropriate 
in  the  lowest  order  for  the  Lamb  mode,  at  the  appropriate  point  on 
the  ground.  Thus  we  might  take 


P  -  p*/yA(s,0)  (6.5.10a) 

u  -  lriVH*(s,e)/(i  -  v  »ic)}A(s,e)  (6.5.10b) 

Q  -  [p1/Y/c.2]A(s,0)  (6.5.10c) 

O  Li 


where  the  ambient  pressure  and^density  are  considered  as  functions 
of  z,  s,  and  0.  The  quantity  k(s,6)  is  the  wave  slowness  vector 
computed  for  the  point  in  question  froia  the  ray  tracing  equations. 
One  should  note  that  we  have  assumed  the  ratios  of  U,  P,  and  Q  to 
he  always  appropriate  for  a  planar  wave  propagating  in  the  Lamb 
mode.  This  would  seem  to  be  adequate  at  moderate  distances  from 
the  source. 


The  s  variation  of  the  remaining  factor  A(s,8),  is  determined 
from  the  geometrical  acoustics  law  recently  espoused  by  Bretherton 
and  Garrett  that  a  wave  propagating  in  slowly  varying  inhomogeneous 
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moving  media  should  propagate  such  as  to  conserve  wave  action,  in 
the  absence  of  nonlinear  effects  and  dissipation.  By  wave  action, 
one  means  simply  the  wave  energy  divided  by  the  frequency  of  the 
wave,  as  would  be  seen  by  someone  moving  with  the  fluid.  If 
dispersion  is  small  this  law  simply  means  that 


(6.5.11) 


where  v  is  the  group  velocity  and  E  is  the  energy  density  (per 
unit  ar£  i  of  earth  surface)  in  the  wave  as  would  be  computed  for 
a  homogeneous  medium  by  someone  moving  with  the  local  wind  speed. 
The  brackets  imply  a  time  average.  Neglecting  dispersion,  we  have 


*  [c£/(l  “  ^*vL)]k  (6.5.12) 

00 

E  «  |( (1/2)pqu2  +  (l/2)p2/[poc2]}  dz  (6.5.13) 


with  the  neglect  of  the  very  small  kinetic  energy  of  vertical  mo¬ 
tion  associated  with  the  Lamb  me; a  and  with  the  neglect  of  the 
correspondingly  small  change  in  gravitational  potential  energy. 
Here  z  is  the  height  of  the  earth’s  surface.  Since,  in  the 
absenci  of  nonlinear  terms  and  dissipation,  ip  is  iust  a  constant 
times  cos  [tot  -  ks  +  x]  where  x  is  a  constant  phase  for  constant 
frequency  waves  and  since  the  remaining  factors  are  independent  of 
time,  it  would  appear  that  <E>  may  be  taken  proportional  to 


<E>  -  A2 j  [Pq/Y/(P0cl^  dz 
z 

S 


a2c:2 


[Po/Y/po3  d: 


z 

8 


(6.5.14) 


Thus  we  have 
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*■ 


0 


If  we  now  integrate  this  relation  over  a  narrow  segment  of  a  ray 
tube  bounded  by  two  adjacent  rays  and  apply  Gauss’  theorem,  we  ob¬ 
tain  (after  some  algebra) 


d 

di- 

r 

| 

j  If‘\i  o* 

l 

J 

(6.5.15) 


where  J  is  the  Jacobian 


J  * 


[3x  3y  3x  3y 
f5s  cie  “  cRT  ta 


in  the  event  the  earth’s  surface  is  considered  flat. 


(6.5.16) 


We  may  also  extend  the  above  analysis  to  take  into  account 
earth  curvature  by  simply  replacing  J  by 

J  -  r  sin(r/r  )|[(3r/3s)(3<|>/3e)  -  (3r/36)  (3<|>/3s)]  | 

(6.5.17) 

where  r  is  great  circle  distance  from  the  source,  r  is  the  radius 
of  the  earth,  and  <>  is  the  azimuth  angle  location  of  the  observer, 
taking  the  source  as  being  on  the  axis. 

Once  J  is  determined  as  a  function  of  s  for  fixed  6,  we  may 
regard  Eq.  (6.5.15)  as  an  ordinary  differential  equation;  the 
quantity  in  braces  should  be  a  constant  along  the  ray  path  and, 
following  a  terminology  used  in  sonic  boom  studies;,  may  be  termed 
the  Blokhintzev  Invariant  for  the  propagation.  Note  that  z  could 
be  a  function  of  x  and  y.  Thus  the  formalism  also  takes  in5o 
account  the  possibility  of  gradual  variations  in  ground  elevation. 


6.6  EXCITATION  OF  LAMB'S  MODE 

In  order  to  solve  the  various  approximate  equations  derived 
in  the  previous  section,  some  initial  conditions  are  required. 

The  various  equations  we  have  derived  allow  us  to:  (1)  determine 
the  horizontal  ray  paths  given  an  initial  point  on  the  path;  (2) 
determine  the  amplitude  factor  A(s,0)  given  its  value  at  the  start 
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of  the  path;  and  (3)  determine  the  waveform  function  \|/(s,0,t)  given 
its  s  dependence  at  some  initial  time.  In  the  present  section  we 
seek  to  determine  these  various  initial  conditions  for  waves  launched 
by  a  low  altitude  nuclear  explosion. 

Let  the  explosion  be  on  the  z  axis  such  that  x  »  0,  y  *  0  at 
the  source.  Since  all  waves  must  originate  from  the  source,  it 
is  clear  that  all  horizontal  ray  paths  should  ensue  from  the  point 
(0,0).  The  initial  path  direction  could  be  any  angle  between 
0  and  2ir*  We^accordingly  choose  the  angle  6  to  be  the  initial 
direction  of  k,  reckoned  counterclockwise  with  respect  ot  the 
x  axis.  The  initial  value  of  k  for  any  given  path  is  then  found 
from  Eq.  (6.5.5)  fo  be  given  by 

-  “n<0> 

k(0,6)  -  -2 — -  (6.6.1) 

°L  +  Vno(6) 

where  n  (6)  is  that  unit  vector  making  a$  angle  of  6  with  the  x 
axis.  ¥he  appropriate  values  of  c.  and  v,  should  be  those  cor¬ 
responding  to  the  source  location.  The  remaining  Initial  condi¬ 
tion  is 

x(O,0)  -  0  (6.6.2) 

for  all  6.  Thus,  the  horizontal  ray  paths  are  completely  determined 
with  the  integration  of  Eqs.  (6.5.6)  and  (6.5.7). 

The  initial  conditions  on  A(s,0)  and  *Ks ,0,t)  are  obtained 
with  reference  to  the  intermediate  field  solution  for  a  point 
source  in  a  temperature-  and  wind-stratified  atmosphere.  Since 
the  viewpoint  adopted  in  the  present  chapter  is  that  the  only 
principal  effect  of  the  temperature  variation  and  wind  profile 
variations  with  altitude  is  to  cause  the  Lamb  mode  to  be  dis¬ 
persed  and  since  the  dispersion  does  not  have  appreciable  effect 
until  relatively  large  distances,  it  would  appear  sufficient  to 
calculate  the  intermediate  field  on  the  supposition  that  the 
atmosphere  is  isothermal  and  has  constant  winds.  In  this  event, 
the  Eqs.  (2.1. A)  reduce  to 

Ut^Dt  +  <p^o>  “  c2VlVDt  +  (p/^P0)  “  c2d^(3?/3z2)(p/*/P0) 

-  (Airc2/»/po)Dt[D^  -  g(3/3z)][fE(t)6(r  -  rQ)]  (6.6.3) 
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To  simplify  ta*  analysis,  we  assume  that  the  source  is 
drifting  horizontal  y  with  the  wind  speed.  In  a  coordinate 
system  moving  with  :he  source,  the  solution  of  (6.6.7)  is  readily 
found  to  be 


where  R  is  the  net  horizontal  distance  from  the  source.  The  only 
distinction  for  the  fixed  coordinate  system  is  that  we  replace  R 
by  R*  where 

(R*)2  -  &  -  vt)2  (6.6.10) 

Since  the  excited  pulse  is  of  relatively  short  duration,  we 
may  consider  the  dominant  contribution  in  the  integration  to  come 
from  values  of  T  near  where  c(t  -  T)  ~  R.  In  this  event,  Eq.  (6.6.9) 
simplifies  to 


t-R/c 


F  -  (2c/R)1/2Q 


f’CO  dT 

[(t  -  T)  -  R/c]: 


(2c/R)1/2QG(t  -  R/c) 


(6.6.11) 


where 


G(t) 


(6.6.12) 


is  similar  to  the  Whitham  F-function  utilized  in  the  theory  of 
sonic  boom  propagation. 

The  function  G(t)  can  be  evaluated  with  recourse  to  Eq.  (2.1.5b). 
We  find  that 

G(t)  -  Y^2tpo(zo)/po(0)]1/2[c(0)/c(zo)]1/2LsPstJ/2M(t/Ty) 
where 
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I,  -  [c(0)/cUo)Hpo(0)/po(,o)11/3i^\ 

X 

M(X)  -  J(1  -  S)e“5[X  -  £f1/2  d5  U(X) 

0 

V* 

M  2 

-  {/£  +  (1  -  2X)e“X  |ey  dy)  U(X)  (6.6.13) 

0 


The  various  symbols  used  above  have  the  same  meaning  as  in  Chapter  2. 

If  the  source  time  duration  T„  is  sufficiently  short  or  if  the 
winds  are  sufficiently  weak,  sucn  that  at  moderate  distances  R,  one 
has  R  »  |vJty,  then  it  would  appear  sufficient  to  take 

R*  -  Cj^s/ (c^  +  vLk)  (6.6.14) 

where  s  is  the  distance  parameter  defined  by  Eq.  (6.5.9). 

Since,  with  the  above  approximation,  the  only  t  dependence  is 
the  function  M,  it  would  appear  that  we  can  choose 

Mt,s,0)t-o  «  M(-s/[(cl  +  vLk)TYD  (6.6.15) 

where  the  range  of  s  is  formally  considered  as  encompassing  negative 
as  well  as  positive  values. 


The  remaining  quantity  of  interest,  the  amplitude  factor  A, 
is  given  by  Eq.  (6.5.15)  ~s 


»< n 
^ 


(6.6.16) 


where  J  is  the  Jacobian  and  I  is  the  integral 


(6.6.17) 
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The  constant  B  is  a  quantity  which  we  may  obtain  with  detailed  com¬ 
parison  with  the  intermediate  range  solution.  Since,  for  small  st 
we  can  show  that 


sc. 


J  - 


°L  +  vLk 


(6.6.18) 


we  identify 


/\  ^KT2^  +  *U?\  Y 

1  "? 7TW— r  *I<Wzo> 

1  CL 


(6.6.19) 
x-0,  y»0 


where 


K  -  MF  V.<<Xt.>l/2|c(0>/c(lO>l1/2«P.<*o)/',.W)>1/2)x.0,  y-0 

(6.6.20) 


Thus,  in  summary,  we  have  the  acoustic  pressure  given  by 

p  -  KY^2U(x)D(x)[A(x)/A(x  )]i*;(t,s,e);ji/2  (6.6.21) 

ivi  O  O 

where 


D<*> 


p  /P1/2 
o'  Ko 


[p?'/P0J  dz^ 


")  1/2 


A(x) 


+  VLk>J 


(6.6.22a) 


(6.6.22b) 


The  quantity  K  is  given  by  Eq.  (6.6,20)  while  the  Jacobian  J  is 
gi’-^n  by  Eq.  (6.5.16)  or  Eq.  (6.5.17).  The  quantity  ij>  satisfies 
the  Eq.  (6.4.14),  with  the  initial  condition  (6.6.15). 
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6.7  SOLUTION  OF  THE  LINEARIZED  KORTEWEG-DE  VRIES  EQUATION 

The  determination  of  the  waveform  profile  ty(t,s,6)  is  probably 
the  chief  computational  obstacle  to  the  procedure  outlined  in  the 
preceding  sections.  Here  we  outline  the  method  of  solution  in  the 
neglect  of  nonlinear  and  dissipation  terms.  This  may  be  an  ade¬ 
quate  approximation  for  all  cases  of  interest,  although  one  can¬ 
not  say  this  with  certainty  until  he  has  some  quantitative  esti¬ 
mates  of  the  effects  of  the  neglected  terms. 

With  the  neglect  of  dissipation  and  nonlinear  terms  the  Eq. 
(6.4.14)  becomes 

3ij>/3t  +  cg3t{i/3s  +  D3  V3as  “  0 

where 

Ce  '  CL  +  VLk  +  \k  +  V'bL 


or,  to  the  same  approximation, 


(6.7.1) 

(6.7.2a) 

(6.7.2b) 


3\J>/3t  +  c  3\jj/3s  -  (D/cs)3*^/3t3  -  0  (6.7.3) 

©  © 

To  put  this  in  a  form  appropriate  to  the  case  where  c  and  D 
are  slowly  varying  functions  of  s,  we  consider  \J>  to  be  a  function 
of  parameters  t  and  s,  where 

8 

t  *  t  -  j(l/c#)  ds  (6.7.4a) 

0 

8 

tT  ■  j(D/c*)ds  (6.7,4b) 

0 

such  that  Eq.  (6,7.3)  becomes 

-  i!i  -  o  (6.7.5) 

3s  3t* 


i 
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If  4>  is  specified  when  s  *  0  as  i|i  (t),  then  the  solution  to 
Eq.  (6.7.5)  may  be  found,  after  some  analysis,  to  be  given  by 


(3s) 


^0/3 


-  t  _  _ 

Ai  - T7o  V»_(t  )  dt 

l(3l)1/3j  0  0  0 


(6.7.6) 


(6.7.7) 


(6.7.8) 


(6.7.9a) 


(6.7.9b) 


For  the  problem  of  interest,  we  find  from  reasoning  similar 
to  that  which  leads  to  Eq.  (6.6.15),  that 

W  ■  M(e0/TY> 

where  the  function  M  is  as  given  by  (6.6.13).  Thus 


00 


>Ks,0,t) 


/a  x. 


t  +  T  -  t 

Ai 

o  c 

td  J 

"W 


dt 


00 
e  / 


/a 


Ai 


td  td; 


M(y)  dy  (6.7.10) 


with  a  change  of  integration  variable  and  recognition  of  the  fact 
that  M  -  0  for  y  <  0. 

It  is  of  some  interest  to  examine  Eq.  (6.7.10)  in  the  limit 
of  small  yields  as  it  is  not  immediately  apparent  that  the  well- 
known  law  of  yield-amplitude  proportionality  holds  for  the  single 
mode  model.  The  correct  behavior  in  this  limit  is  somewhat  subtle 
since  the  function  M(y)  is  not  integrable.  With  reference  to  Eq. 
(6.6.13),  we  write 


- 


M(y)  -  [f(£)/(y  -  O']  d£ 


1/2, 


(6.7.11) 


where 


f(5)  -  (1  - 


Then  Eq.  (6.7.10)  becomes 


(6.7.12) 
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In  the  integral  over  y  we  set  y  -  5  ■  (a2) (Tp/Ty)  and  obtain 
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*  /J  T»  D  J 

0  v  o  y 

We  next  expand  the  Integrand  in  a  power  series  in  T^/tp.  Since 


Jf  (0  d£  -  o 
0 


(6.7.12) 


the  first  non-zero  term  is 


or 

-  (2/v^)(TY/TD)3/2Pl?Ut  -  Tc]/td)  (6.7.13) 

where  PP(x)  is  a  function  defined  by 


PP(x)  -  |m '  (a2  -  x)  da  (6.7.14) 

0 

.  According  to  Eq.  (6.6.12),  the  overpressure  varies  with  y^d 
as  Y™  •  However,  the  above  shows  that  ^  varies  with  yield  as  T  '  . 
But  Tj  varies  with  yield  as  YJIL  .  Thus  the  amplitude  is  directly  pro¬ 
portional  to  yield  and  the  waveform  shape  is  independent  of  yield  in 
the  limit  of  small  yields.  The  limit  applies,  strictly  speaking,  when 
T/t  «  1  and  is  accordingly  more  appropriate  at  larger  distances  and 
for  propagation  with  strong  dispersion  (large  D). 


6.8  SUMMARY 

Although  the  results  are  reasonably  simple  the  derivation  of 
the  single  mode  theory  given  in  the  present  chapter  is  somewhat 
intricate.  It  would  therefore  seem  appropriate  to  pause  here  and 
summarize  the  various  results  scattered  throughout  the  chapter 
from  an  operational  point  of  view. 
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The  basic  assumption  is  that  the  earliest  portion  of  the 
wave  which  arrives  with  transit  speeds  of  the  order  of  the  sound 
speed  at  the  ground  may  be  interpreted  as  being  caused  by  a  single 
guided  mode,  which  is  the  real  atmosphere's  counterpart  of  Lamb's 
guided  mode  for  the  isothermal  atmosphere.  The  dispersion  of  this 
mode  is  small,  but  important.  However,  this  dispersion  is  ne¬ 
glected  in  determining  the  ground  projected  ray  paths  along  which 
the  mode  travels. 

The  determination  of  these  grouud  projected  paths  is  the  same 
as  for  two  dimensional  acoustic^  in  a  medium  having  sound  speed  c, 
(L  for  Lamb)  and  wind  velocity  v, .  Both  c,  and  v.  are  in  general 
functions  of  position  on  the  earth's  surface  and  are  averages  over 
height  z  of  the  sound  speed  and  wind  velocity  profiles.  The 
manner  in  which  these  averages  should  be  taker  turns  out  to  be 


(6.8.1) 


(6.8.2) 


where  p  and  p  are  ambient  pressure  and  density,  y  is  the  specific 

heat  ra¥io,  an§  z  is  the  ground  level. 

8 

The  rays  all  start  out  on  a  point  on  the  ground  directly  below 
the  source  and  are  distinguished  from  each  other  by  a  parameter  6 
which  ranges  from  0  £o  2tt.  A  given  ray  may  be  characterized  by 
giving  the  position  x^(s,6)  and  wave  slowness  vector  k(s,6)  as 
functions  of  8,  where  s  is  a  function  of  distance  along  the  path 
(which  is  the  same  as  distance  in  the  limit  of  no  winds). 

Along  or  above  a  given  path  the  acoustic  pressure  p  is  given  by 
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p  -  KY^2D(x)D(xo)tA(x)/A(xo)3>j;(t,s,e)/J1/2 


(6.8.3) 


where 


K  «  {/2  LsP8(cLt8)1/2tc(0)/c(zo)]1/2tpo(*o)/po(0)]1/2} 


source 


(6.8.4a) 


D(x)  - 


pV/2 

Ko _ 

ip?/Y/p.i  d*l 


-  z 


(6.8.4b) 


A(I)  -  ^/2(^/2/(ci  +  »Lk)l 


(6.8.4c) 


L  *  1  kilometer 
s 


(6.8.4d) 


P  *  1.61  x  34.45  x  103  dynes/cm2 
s 


t  «  0.48  sec. 
s 


(6.8.4e) 


(6.8.4f) 


J  «  r  sin(r/r  )  [3r/3s)  (3<|>/38)  -  (3r/30)  (3<|)/3s)]  (6.8.4g) 

6  B 

r  *  great  circle  distance  from  source  (6.8.4h) 

0  ■  azimuth  angle  of  observer  location  (6.8.4i) 


'Lk  L 


vT.£/|k| 


(6.8.4j) 


The  quantity  ^(t,8,0)  satisfies  a  partial  differential  equation 
known  as  the  Korteweg-de  Vries-Burgers*  equation 

3ijj/3t  +  [cg  +  8]3<i»/3s  +  D3 34>/9s 3  -  ud[32/3s2  +  k2]»j/  -  0  (6.8.5) 


where 


c  ■  cT  +  vT ,  +  a. .  +  h. .  k2 
e  L  Lk  kk  kk  BL 


(6.8.6a) 


8  *  cLl(y  +  l)/(2y)]vp(zg)/po(zg) 


(6.8.6b) 
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(6,8.6c) 


The  remaining  quantities  a,.  ,  h..,  v,  y ,,  k ,,  and  k  are  defined 
in  Eqs.  (6.2.20),  (6.3.4)  and  T&.4. 10).  a  a 

■  In  the  derivation  of  Eq.  (6.8.5),  it  was  assumed  that  the  terms 
with  coefficients  8,  D,  and  y ,  were  all  relatively  small.  It  was 
also  assumed  that  all  the  coefficients  were  slowly  varying.  Thus 
to  the  same  order  of  approximation,  one  may  set  3/3s  ■  -c'  13/dt 
in  the  higher  order  terms  and  obtain  the  alternate  form 

3t/)/3s  +  c'^/St  -  (8/c2)  3^/3t  -  (D/c4)3  V3tS 
6  £  6 
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Furthermore,  in  the  limit  o£  small  yields,  we  find 


(6.8.11a) 


(6.8.11b) 


ip  -  (2//F)(TY/TD)3/2PP([t  -  Tc]/TD)  (6.8.12) 


where 


PP(x)  -  J Ai * (a2  -  x)  da  (6.8.13) 

0 

which  demonstrates  yield-amplitude  proportionality. 

In  conclusion,  the  authors  state  that  this  approach  appears 
extremely  promising.  An  initial  test  of  the  theory  will  be  to 
see  how  well  its  predictions  agree  with  the  computations  performed 
using  INFRASONIC  WAVEFORMS  for  stratified  atmospheres.  If  this 
works  out,  then  we  may  expect  to  have  a  number  of  interesting 
areas  to  explore.  One  hope  is  that  we  may  be  able  to  explain  data 
such  as  presented  by  Wexler  and  Hass  in  detail. 
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Appendix  A 

BIBLIOGRAPHY  ON  INFRASONIC  WAVES 


The  following  bibliography  is  a  compendium  of  papers  and 
books  which  have  cone  to  the  attention  of  the  authors  as  having 
some  relation  (either  direct  or  indirect)  to  the  long  range 
propagation  of  mechanical  radiation  through  the  atmosphere. 

While  no  claims  are  made  as  to  its  completeness,  it  is  the  most 
comprehensive  and  up-to-date  bibliography  specifically  restricted 
to  this  topic  of  which  the  authors  are  currently  aware. 

For  ease  of  referral,  the  subject  matter  has  been  broken 
down  into  a  number  of  categories  as  follows: 

1.  Books  on  acoustics,  wave  propagation,  hydrodynamics  and 
mathematical  physics 

2.  Meteorology,  including  data  on  atmospheric  structure 

3.  Theoretical  papers  on  acoustic-gravity  waves  and  gravity 
waves  in  the  atmosphere 

4.  Theoretical  papers  on  higher  frequency  atmospheric  waves 

5.  Observations  of  infrasonic  waves  in  the  lower  atmosphere 

6.  Observations  of  Infrasonic  waves  in  the  ionosphere 

7.  Data  concerning  the  properties  of  nuclear  explosions 

8.  Related  papers  on  the  mathematical  theory  of  wave  propa¬ 
gation,  and  on  mathematical  techniques  useful  in  wave  pro¬ 
pagation 

9.  Nonlinear  effects  on  wave  propagation,  including  shock  waves 

10.  Instrumentation 

11.  Data  analysis  techniques 

The  classification  scheme  is  not  mutually  exclusive,  although 
we  have  generally  classified  each  reference  under  only  one 
heading. 

This  bibliography  is  an  updated  and  expanded  version  of  one 
given  previously  in  1967  by  Pierce  and  Moo.  Since  we  hope  at 
some  later  date  to  issue,  in  turn,  a  revised  version  of  the 
present  bibliography,  we  request  that  readers  notify  the  authors 
of  any  neglected  papers,  errors,  etc. 
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Deck  Lietlng 

of 


INFRASONIC  WAVEFORMS 


--*■  -  '  A  -v' 


HMN  PROGRAM 


T/23/6R 


PROGRAM  TO  SYNTHESIZE  PRESSURE  HAVEFORMS  OF  ACOUSTIC 
GRAVITY  HAVES  GENERATED  BY  NUCLEAR  EXPLOSIONS  IN  THE 
ATMOSPHERE 


- ABSTRACT - 


f  TlTlE  -  MAIN  PROGRAM 


GENERAL  PURPOSE  PROGRAM  FOP  STUDYING  THE  PROPAGATION  Of  NUCLEAR 
EXPLOSION  GENERATED  ACOUSTIC  GRAVITY  HAVES  IN  THE  ATMOSPHERE. 

THE  ATMOSPHERE  IS  APPROXIMATED  BY  A  MULTILAYER  ATMOSPHERE 
HITH  CONSTANT  UINO  VELOCITY  ANO  TEMPERATURE  IN  EACH  LAYER 
THE  NUMBER  OF  LAVERS.  HIOTHS  OE  LAVERS.  AND  PROPERTIES  OF 
LAYERS  MAY  BE  SELECTED  BY  THE  USER.  THE  GROUND  AT  Z*0  IS 
ASSUMED  ELAT  AND  RIGID.  THF  UPPERMOST  ..AVER  OR  THE 
ATMOSPHERE  IS  ASSUMED  TO  BE  UNBOUNDED  E*OM  ABOVE. 

THE  SOURCF  IS  SPECIFIED  BY  ITS  HEIGHT  OF  BURST  AND  ENERGY 
YIELD.  IT  IS  APPROXIMATED  AS  A  POINT  ENERGY  SOURCE  HITH 
TIME  DEPENDENCE  CONFORMING  TO  CUBE  ROOT  (HYDRODYNAMIC I 
SCALING  DERIVED  FROM  THE  EFFECTS  OF  NUCLEAR  HEAPONS 
tu.s.  GOVERNMENT  PRINTING  OFFICE.  19621. 

THE  OBSERVER  LOCATION  MAY  BE  SPECIFIED  ARBITRARILY. 
HOHFVER.  THE  COMPUTATION  INCLUDES  ONLY  CONTRIBUTIONS  FROM 
FILLY  DUCTED  GUIDEO  MODES  AND  ACCORDINGLY  GIVES  A  SOLUTIO 
VALtO  (AT  BESTI  ONLY  AT  LARGE  HORIZONTAL  DISTANCES. 

also,  the  programming  is  based  on  the  premise  thai  only 

PORTIONS  OF  MOOES  HITH  PHASE  VELOCITIES  GREATER  THAN  THE 
MAXIMUM  UINO  SPEEO  ARE  TO  BE  INCLUOFD  INTO  THE  COMPUTATIO 
THE  PROGRAM  CANNOT  THEREFORF  BE  APPLIED  TO  THE  STUDY  OF 
CRITICAL  LAYEP  EFFECTS. 

Gf  -  FORTRAN  tV  (360,  REFERENCE  MANUAL  C28-6515-4I 


C  LANGUAGE  -  FORTRAN  (V  (360,  REFERENCE  MANUAL  C28-6515-4I 

C 

C  AUTHORS  -  A. 0. PIERCE  ANO  J.POSFY,  M.I.T.,  JUNE, 1968 
C 

C  - USAGE - 

C 

C  All  nATA  IS  INPUT  IN  THE  NAMELIST  FORMAT.  EACH  SEOUENCE  OF  OATA 
C  MUST  INCLUDE  A  NAM1  GROUP  AT  THE  BEGINNING. 

C 

CCNAMl  NS  *«T»  ,  NPRNT*  .  NPNCH*  SEND 

C 

C  THF  REMAINOFR  of  THE  DATA  TO  BE  SUPPLIED  DEPENDS  ON  THE  VALUE 

C.  OF  NSTA»T. 

C  * 

C  •••*NSTART«!**»* 


CCNAM2 

LANGLE* 

.  I  MAX* 

,  T*  ,  * 

....  VKNTX*  .  , 

....  ETC. 

CE 

MAIN 

55 

CCNAM6 

TMETK* 

.  VI*  , 

V2*  ,  0M1« 

.  ETC. 

CE 

MAIN 

56 

CCNAM6 

ZSCRCF* 

.  FOBS* 

CEND 

MAIN 

57 

CCNAMB 

YIFLO. 

CEND 

MAIN 

58 

CCNAM10 

TFIRST* 

.  TEND* 

.  DELTT*  , 

ROBS*  ,  10PT* 

CEND 

MAIN 

59 

C 

MAIN 

60 

c.  ***»nstart* 

2***» 

MAIN 

61 

C.CNAM3 

IMAX* 

,  CI«  . 

....  VXI* 

♦  •  i  ETC# 

CEND 

MAIN 

62 

CtNAM* 

THETK« 

.  VI*  , 

V?.  ,  0M1* 

#  FCT. 

CFNO 

main 

63 

CCNAM6 

ZSCRCE« 

.  ZOBS* 

CENO 

MAIN 

66 

CCNAH6 

YIELD* 

CFNO 

MAIN 

65 

CCNAMl  0 

TFIRST* 

.  TEND* 

,  OElTT.  , 

Roa$«  #  tnpT« 

CFNO 

main 

66 

C 

main 

67 

C.  * 

***NSTART« 

3»*c* 

main 

68 

f  CNAM'i 

INAX* 

•  Cl*  . 

....  VXI* 

t  t  t  •  •  t  ETC# 

CENO 

MAIN 

69 

CCNAMl. 

Z5CRCE* 

.  ZOBS* 

CFNO 

MAIN 

TO 
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ccNamr  yield- 

SEND 

* 

MAIN 

71 

CtNAMlO  TFI*5T«  . 

TENO- 

#  DECTT*  ,  HORS*  •  MPT*  C€N0 

MAIN 

72 

c 

MAIN 

73 

c 

*9**NST4RT«4***- 

MAIN 

7A 

CtNANT  OMM'JD*  . 

•  *•••  V^MOO*  •  f •• •  MOPHO*  f  ETC* 

MAIN 

75 

CtNANB  YIELD- 

SEND 

MAIN 

76 

CtNAMlO  TFIRST-  , 

TENO- 

.  OELTT-  ,  ROBS-  •  IOPT-  SEND 

MAIN 

77 

C 

main 

79 

C 

****NST4RT-5**** 

MAIN 

79 

CtNAM*  HOFNO-  .  KST- 

.  ....  XF IN-  .  ....  ON MOO-  .  .  ETC. 

MAIN 

80 

CtNAMlO  TFIRST-  , 

TENO- 

.  OELTT-  .  ROBS-  .  IOPT-  (END 

MAIN 

81 

C 

MAIN 

82 

C 

—•NSTRRT-6**** 

MAIN 

83 

CINO 

ADDITIONAL  DATA 

IS  NEEOFO.  COMPUTATION  TERMINATES.! 

MAtN 

BA 

C 

MAIN 

SB 

r 

FOR  A  COMPLETE 

LIST 

OF  VARIABLES  THAT  ARE  INCLUDED  IN  A  GIVEN 

MAIN 

86 

c 

NAMFIIST  GROUP 

.  SEE 

NAMELIST  STATEMENTS  IN  PROGRAM,  NOTE  THAT 

MAIN 

87 

c 

DATA  INPUT  RV  READ (5 

•NAMII,  REAOIB.NAM2I .  ETC..  NEED  NOT  INCLUOE 

MAIN 

88 

c 

VALUES  OF  All 

VARIABLES  IN  THE  CORRESPONDING  NAMELIST  GROUP.  ONE 

MAIN 

89 

f 

NFFD  ONLY  INPUT  THOSE  VALUES  NEEOEO  FOR  THE  CALCULATION  AND  WHICH 

MAIN 

90 

f 

ARF  NOT  ALREADY  IN  STORAGE. 

MAIN 

91 

c 

MAIN 

92 

c 

DATA  ASSOCIATED  KITH 

i  NAM3.  NAM5,  NAM7,  AND  NAN9  SHOULD  IN  GENERAL 

MAIN 

93 

c 

NOT  RE  SUPPLIED  ARBITRARILY.  BUT  MAY  BE  OBTAINED  FROM  PREVtOUS 

MAIN 

9A 

f 

RUNS  OF  THE  PROGRAM. 

IF  NST ART-1,  NPNCH-1,  DATA  CARDS  FOR  NAM3, 

MAIN 

95 

r. 

NANS.  NANT.  AND  NAN9 

ARE  AUTOMATICALLY  PUNCHED.  IF  NSTART-2, 

MAtN 

96 

r 

NPNCH-1,  DATA 

CARDS 

FOR  NANS,  NAM7.  ANO  NAM9  ARE  PUNCHED.  IF 

MAIN 

97 

c 

NSTART<<3<  NPNCM-1.  DATA  CAROS  FOR  NANT  AND  NAM4  ARE  PUNCHED.  IF 

MAIN 

99 

r. 

NSTART-4.  NPNCH«1»  DATA  CAROS  FOR  NAH9  ARE  PUNCHED. 

MAIN 

99 

r 

MAIN 

100 

c 

THF  NEXT  PATCH 

OF  DATA  AFTER  NAN10  SHOULD  BE  NANI.  THF  LAST  DATA 

MAIN 

101 

c 

CARD  SHftUt  0  BE 

NAM1 

MITH  NST  ART-6. 

MAIN 

102 

r. 

MAIN 

103 

r 

- 

—EXTERNAL  SUBROUTINES  REQUIRED— 

MAIN 

10A 

r. 

MAIN 

105 

c 

SUBROUTINE 

TYPE 

CALLEO  BY 

MAIN 

106 

c 

MAtN 

107 

c 

AAAA 

SUB 

ELINT. MMMM. NAMPOE, NMOFN 

MAIN 

108 

r 

AX  1 

SUB 

TMPT 

MAIN 

109 

c 

ALLMOD 

SUB 

MAIN 

MAIN 

no 

r 

AMBNT 

SUB 

PAMPOE 

MAIN 

in 

c 

ATMOS 

SUP 

MAIN 

MAIN 

111! 

c 

AXIS1 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUT  INF) 

MAIN 

113 

c 

NRBB 

SUB 

ELINT 

MAtN 

114 

c 

CAI 

FUNC 

BBBB.MMMK 

MAtN 

115 

c 

OXDY1 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUTINE) 

MAIN 

116 

c 

ELINT 

SUB 

TOTINT 

MAIN 

117 

c 

ENOPLT 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUTINE) 

MAIN 

118 

f. 

FNHOOl 

FUNC 

MOOETR  1  EXTERNAL  FOR  ARG.  OF  RTMI) 

MAIN 

119 

c 

FNMOD2 

FUNC 

MOOETR  1  EXTERNAL  FOR  ARG.  OF  RTMI) 

MAIN  120 

c 

LNGTHN 

SUB 

TABLE 

main 

121 

r. 

MMMM  > 

SUB 

NA**POE.  RRRR 

MAIN 

122 

c 

MOOETR 

SUB 

ALLMOD 

MAIN 

123 

c 

MOOLST 

SUB 

MAIN- 

MAIN 

124 

c 

NPOUT 

SUB 

TABLE 

main 

125 

c 

nampde 

SU" 

PAMPOE 

MAIN 

126 

c 

NEHPLT 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUTINE) 

MAIN 

127 

c 

NMOFN 

SUB 

FNMOOl.FNHOO 2* LNGTHN, MPOUT, WIDEN 

MAIN 

128 

c 

NUMBR1 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUTINE) 

MAIN 

129 

c 

NXMODE 

SUB 

ALLMOD 

MAIN 

130 

c 

NXPNT 

SUB 

MOOETR 

MAIN 

131 

r. 

PAMPOE 

SUB 

MAIN 

MAIN 

132 

c 

PHASF 

SUP 

SOURCE 

MAIN 

133 

*: 

PLOT1 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUTINE) 

MAIN 

134 

r. 

PPAMP 

SUB 

MAIN 

MAIN 

135 

c 

PRATMO 

SUB 

MAIN 

MAIN 

136 

c 

RRRR 

SUB 

NMDFN 

MAIN 

137 

r. 

RTMI 

SUB 

MOOETR  1  IBM  SCIENTIFIC  SUBROUTINE) 

MAIN 

138 

c 

SAI 

FUNC 

BBBB.MMMM 

MAIN 

139 

r 

SCLGPH 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUTINE) 

MAIN 

140 
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c 

SOURCE 

SUB 

PPANP 

MAIN.141 

r 

SUSPCT 

SUB 

TABLE 

MAIN  142 

C 

SYMBL5 

SUB 

TMPT  IM.I.T.  CALCOMP  ROUTINEI 

MAIN- 143 

c 

TABLE 

SUB 

MAIN 

MAIN  144 

r 

TABP.RT 

SUB 

MAIN 

MAIN  145 

C 

TMPT 

SUB 

MAIN 

MAIN  146 

C 

TOT  I NT 

SUB 

NAMPDE 

MAIN  147 

r 

UPINT 

SUB 

TOTINT 

MAIN  14S 

c 

USERS 

SUB 

TOTINT 

MAIN  149 

e 

WIDEN 

SUB 

TABLE 

MAIN  150 

r. 

MAIN  151 

c 

——INPUTS 

THROUGH  NAMELIST  READ  STATFNFNTS - 

MAIN  152 

c 

HAtN  153 

c 

NAM1  —  NAMELIST 

GBOUP  1 

MAIN  154 

■FLAG  DENOTING  POINT  IN  MAIN  PROGRAM  AT  WHICH  COMPUTA¬ 
TION  8FGINS.  POSSIBLE  VALUES  OF  1  THROUGH  S  CAUSE 
NAM2.  NAM3,  NAM5,  NAM7,  OR  NAM9  TO  BE  READ.  NSTART-6 
CAUSES  TERMINATION  OF  PROG*AN  EXECUTION. 

•FLAG  FOR  PRINTING  OPTION.  IF  NPRNT  .IE.  0,  A  MINIMAL 
AMOUNT  OF  PRINTOUT  WILL  BE  RETURNED. 

•FLAG  FOR  PUNCHING  OPTION.  IF  NPNCH  .IE.  0,  NO  INFO 
WILL  BE  PUNCHEO  ON  CAROS. 


NAM2  --  NAWFIIST  GROUP  2 


LANGLF  •INTEGER  WHICH  SPECIFIES  WHICH  TYPE  OF  ATMOSPHERIC  DAT 

IS  INPUT.  IF  LANGEL  .IE.  0.  THE  WIND  COMPONENTS  IN 
KNOTS  ARE  SPECIFIED.  WHILE  IF  LANGE  .GT.  0,  THE  WIND 
MAGNITUDE  ANO  DIRECTION  ARE  SPECIFIED  FOR  EACH  LAYER. 

IMAX  .NUMBER  OF  LAYERS  OF  FINtTE  THICKNESS  IN  MULTILAYER 

ATMOSPHERE. 

TUI  -TEMPERATURE  IN  DEGREES  KELVIN  IN  THE  I-TH  LAYER. 

VKNTXUI  -X  (WEST  TO  EASTI  COMPONENT  OF  WIND  VELOCITY  IN  t-TH 

LAYER. 

VKNTY (I )  »v  (SOUTH  TO  NORTH!  COMPONENT  OF  WIND  VELOCITY  IN  I-TH 

LAYER. 

WINOY(I)  -WIND  VELOCITY  MAGNITUDE  IN  KNOTS  IN  I-TH  LAYER. 

WANGLE! II  «WINC  VELOCITY  OIRECTION  IN  DEGREES.  RECKONED  COUNTER 

CLOCKWISE  FROM  X-AXIS. 

71(11  .HEIGHT  IN  KILOMETERS  OF  THE  TOP  OF  THE  I-Th  LAYER  OF 

UNITE  THICKNESS. 

NAM3  —  NAMELIST  GROUP  3 

IMAX  .NUMRFR  OF  LAYERS  OF  FINITE  THICKNESS. 

cun  .sound  speed  in  km/sec  in  i-th  layer. 

VXIUI  «X  COMPONENT  OF  WIND  VELOCITY  IN  I-Th  LAYER  (KN/SECI. 

VY'II  «Y  COMPONFNT  OF  WIND  VELOCITY  IN  I-TH  LAVER  (KM/SECI. 

HIlll  -THICKNESS  IN  KM  OF  I-TH  LAYER  OF  FINITE  THICKNESS. 

NAHA  —  NAMELIST  GROUP  A 

THETKD  -DIRECTION  IN  OEGREES  TO  OBSERVER.  RECKONED  COUNTER 

CLOCKWISE  FROM  X  AXIS. 

VI  -LOWER  BOUNO  IN  KM/SEC  OF  PHASE  VELOCITY  INTERVAL  CON¬ 

SIDERED  FOR  NORMAL  MODE  TABULATION 

V?  -UPPER  BOUNO  IN  KM/SEC  OF  PHASE  VELOCITY  INTERVAL  CON¬ 

SIDERED  FOR  NORMAL  MODE  TABULATION 

DM1  -MINIMUM  ANGULAR  FREQUENCY  IN  RA07SEC  CONS.IOERED  FOR 

NORMAL  MODE  TABULATION. 

OM?  -MAXIMUM  ANGULAR  FREQUENCY  IN  RAD/SEC  CONSIDERED  FOR 

NflRWAL  MODE  TABULATION. 

NOMI  -INITIAL  NUMBER  OF  DISCRETE  FREQUENCIES  BETWEEN  OMI 

AND  OM?.  INCLUSIVE,  AT  WHICH  NORMAL  MODE  DISPERSION 
FUNCTION  IS  STUOIED. 

NVPI  -INITIAL  NUMBER  OF  OISCRETE  PHASE  VELOCITIES  BETWEEN 

VI  ANO  V?,  INCLUSIVE,  AT  WHICH  NORMAL  MODI  DISPERSION 
FUNCTION  IS  STUOIED. 

MAXMOO  .MAXIMUM  NUMBER  OF  MOOES  TO  BF  TABULATED. 


MAIN  IBS 
MAIN  156 
MAIN  15? 
MAIN  1SB 
MAIN  155 
MAIN  160 
MAIN  161 
MAIN  162 
MAIN  163 
MAIN  16A 
MAIN  165 
MAIN  166 
MAIN  167 
MAIN  16B 
MAIN  169 
MAIN  170 
MAIN  171 
MAIN  172 
MAIN  173 
MAIN  174 
MAIN  175 
MAIN  176 
MAIN  177 
MAIN  176 
MAIN  179 
MAIN  ISO 
MAIN  181 
MAIN  182 
MAIN  183 
MAIN  184 
MAIN  185 
MAIN  186 
MAIN  187 
MAIN  188 
MAIN  189 
MAIN  190 
MAIN  191 
MAIN  192 
MAIN  193 
MAIN  194 
MAIN  195 
MAIN  196 
MAIN  197 
MAIN  198 
MAIN  199 
MAIN  200 
MAIN  201 
MAIN  202 
MAIN  203 
MAIN  204 
MAIN  205 
MAIN  ?06 
MAIN  207 
MAIN  208 
MAIN  209 
MAIN  210 
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c 
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r 
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c 

c 

c 

c 

c 
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c 

r 

c 

c 

c 
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c 

c 

r 

c 

r. 

r 

c 

r 

r 

c 

c 

r 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

r 

c 

c 

c 

c. 

c 

L 

c 

c 

r. 

e 

r 

c 

c 

c 

c 

r 

f. 

f 

c 

c 

r 

r 

c 

r 

r. 

r. 


NAM5  —  NAMELIST  GROUP  5 


I  MAX 

cun 

vxitn 

vvrm 

Him 

THETKO 

NOFNO 

KSTINI 

KFfNINI 

OMNODCNI 


VPMOOINI 


•NUMBER  Of  LAVEAS  OF  FINITE  THICKNESS 
•SOUND  SPEED  IN  KM/SEC  IN  I-TH  LAVE* 

•X  COMPONENT  OF  WIND  VELOCITY  IN  I-TH  LATEX  I  KM/SEC > 

•Y  COMPONENT  OF  WIND  VELOCITY  IN  I-TH  LAYFK  (KN/SECt 
•THICKNESS  tN  KM  OF  I-TH  LAVEP  OF  FINITE  THICKNESS 
•DIXECTION  IN  OECKEES  TO  OBSERVER,  XECKONEP  COUNTFK 
CLOCKWISE  FKOM  X  AXIS 
-NUK3EK  OF  NONMAL  MOOES  FOUND 
-INDEX  OF  FIXST  TABULATED  POINT  IN  N-TH  MODE 
•INDEX  OF  LAST  TABULATED  POINT  IN  N-TH  MODE.  tN 
GENERAL.  KFININI«KSTtN*15“I« 

•ARP AY  STORING  ANGULAR  FREOUENCV  ORDINATE  (RAO/SECt  OF 
POINTS  ON  DISPERSION  CURVES.  THE  NMODE  MODE  IS  STORE 
FOR  N  BETWEEN  KST(NMOOE)  AND  KF INI NMODE I. 

■ARRAY  STORING  PHASE  VELOCITY  ORDINATE  (KM/SEC)  OF 
POINTS  ON  OISPERSION  CURVES.  THE  NMODE  MODE  IS  STORE 
FOR  N  BETWEEN  KSTINMOOEI  AND  KF INI NMODE J . 


NAM6  —  NAMELIST  GROUP  A 


ZSCRCF 

ZOBS 


•HEIGHT  IN  KM  OF  BURST  ABOVE  GROUND 

■height  in  km  df  observer  above  ground 


NAMT  --  NAMELIST  GROUP  7 


OMMODINI 


VPMOOINI 


MDFND 

KSTINI 

KRININI 

AMPUl 


ALAM 


FACT 


-ARRAY  STORING  ANGULAR  FREOUENCV  ORDINATE  (RAO/SECI  OF 
POINTS  ON  DISPERSION  CURVES.  THE  NMODE  MODE  IS  STORE 
FOR  N  BETWEEN  KSTINMOOEI  AND  KFININMODE). 

•ARRAY  STORING  FHASE  VELOCITY  ORDINATE  IKN/SECI  OF 
POINTS  ON  DISPERSION  CURVES.  THE  NMODE  MODE  IS  STORE 
FOR  N  BETWEEN  KSTINMOOEI  AND  KFININMODE I 
-NUMBER  OF  NORMAL  MOOES  FOUND 
•INDEX  OF  FIRST  TABULATED  POINT  tN  N-TH  NODE 
-INOEX  OF  LAST  TABULATED  POINT  IN  N-TH  MODE.  IN 
GENERAL.  KFINI NI-KSTINF1 1-1. 

•AMPLITUDE  FACTOR  FOR  GUIDED  WAVE  EXCITED  BY  POINT 
ENERGY  SOURCE.  UNITS  ARE  KM**I-11.  THE  J-TH  ELEMENT 
CORRESPONDS  TO  ANGULAR  FREQUENCY  OMMOO(J)  AND  PHASE 
VELOCITY  VPNOOIJt.  THE  AMPLITUDE  FACTOR  IS  APPROPRIA 
TO  THE  NMOOE-TH  MODE  IF  J  .GE.  KSTINMOOEI  AND  J  ,LE. 
KFtNINMOOEI.  A  DETAILED  DEFINITION  OF  AMPIJI  IS  GIVE 
IN  THE  LISTING  OF  SUBROUTINE  NAMPDE. 

•A  SCALING  FACTOR  DEPENDENT  ON  HEIGHT  OF  BURST.  EOUAL 
TO  CUBE  ROOT  OF  IPRESSURE  AT  GROUNDI/IPRESSURE  AT 
BURST  HEIGHT)  TIMES  I  SOUND  SPEED  AT  GBOUNO) /( SOUNO 
SPEED  AT  BURST  HEIGHTI.  SEE  SUBROUTINE  PAMPDE. 

•A  GENERAL  AMPLITUDE'  FACTOR  DEPENDENT  ON  BURST  HEIGHT 
ANO  OBSERVER  HEIGHT.  A  PRECISE  DEFINITION  IS  GIVEN 
IN  THE  LISTING  OF  SUBROUTINE  PANPOE. 


NANO  —  NAMELIST  GROUP  B 


YIELO 


•ENERGY  YIELO  OF  EXPLOSION  IN  EQUIVALENT  KILOTONS  IKTI 
OF  TNT.  1  KT  •  4.2X1 10I**19  ERGS. 


NAM9  —  NAMELIST  GROUP  « 


MOFNO 

KSTINI 

KFININI 

OMMODINI 


VPMOOINI 


•NUMBER  OF  NORMAL  MODES  FOUND 
•  INDEX  OF  FIRST  TABULATED  POINT  IN  N-TH  MODE 
•INDEX  OF  LAST  TABULATED  POINT  IN  N-TH  MODE.  IN 
GENERAL,  KFIN(NI-KST|N*1I-1 

•ARRAY  STORING  ANGULAR  FREQUENCY  ORDINATE  (RAO/SECI  OF 
POINTS  ON  DISPERSION  CURVES.  THE  NNODE  MOOE  IS  STORE 
FOR  N  BETWEEN  KSTINMOOEI  AND  KFININNOOEI. 

•ARRAY  STORING  PHASE  VELOCITY  OROINATE  IKM/SEC)  OF 
POINTS  ON  OISPERSION  CURVES.  THE  NMODE  MOOE  IS  STORE 
FOR  N  BETWEEN  KSTINNOOEI  AND  KFININNOOEI. 


MAIN  m 
MAIN  212 
NAIN  213 
MAIN  214 
MAIN  213 
NAIN  216 
NAIN  217 
NAIN  218 
MAIN  219 
NAIN  220 
MAIN  221 
MAIN  222 
NAIN  223 
MAIN  224 
MAIN  229 
MAIN  226 
NAIN  227 
MAIN  228 
MAIN  229 
MAIN  110 
MAIN  231 
NAIN  232 
MAIN  233 
MAIN  234 
MAIN  233 
NAIN  236 
MAIN  237 
MAIN  23B 
NAIN  239 
MAIN  240 
MAIN  241 
MAIN  242 
MAIN  243 
MAIN  244 
MAIN  245 
NAIN  246 
NAIN  247 
NAIN  246 
NAIN  249 
NAIN  250 
MAIN  231 
NAIN  252 
MAIN  255 
NAIN  254 
NAIN  255 
MAIN  256 
NAIN  257 
NAIN  258 
NAIN  259 
NAIN  260 
NAIN  261 
NAIN  262 
MAIN  263 
NAIN  264 
NAIN  265 
MAIN  266 
MAIN  267 
NAJN  268 
MAIN  269 
NAIN  270 
NAIN  271 
MAIN  272 
MAIN  273 
MAIN  274 
NAIN  2T5 
NAIN  276 
MAIN  277 
MAIN  278 
MAIN  279 
MAIN  280 
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AMPLTO(N) 


PHASQ(N) 


•AMPLITUDE  FACTOR  REPRESENTING  TOTAL  MAGNITUDE  OF 
FOURIER  TRANSFORM  OF  WA.VEFORM  CONTPIRUTION  OF  SINGtE 
GUIDED  NODE  AT  FREOUENCV  ONMOO(N).  IT  REPRESENTS  THE 
AMPLITUDE  Of  NNOOfc-TH  MODE  IF  N  IS  8FTWEEN  KSTINNODE) 
AND  KF ININMODE) •  INCLUSIVE.  FOR  PRECISE  DEFINITION. 
SEE  SUBROUTINE  PPANP.' 

•PHASE  LAG  AT  FREOUENCV  OMMODINI  FOR  NMOOE  NODE  WHEN 
N  BETWEEN  KSTINMODE!  AND  KFININMODEl.  RESPECTIVELY. 
THE  INTEGRAND  IS  UNDERSTOOD  TO  HAVE  THF  FORM 
AMpLTO*COSCOWMOO*<TtHE-OtSTANCE/VPMOO>»PHASQ!.  FOR  A 
PRECISE  DEFINITION  OF  PHASO,  SEE  SUBROUTINES  TNPT 
AND  PPANP. 


nanio  --  namelist  group  10 


•FIRST  TINE  RELATIVE  TO  TINE  OF  DETONATION  FOR  WHICH 
WAVEFORM  IS  COMPUTED.  UNITS  ARE  IN  SECONDS. 

•APPROXIMATE  TINE  VALUE  CORRESPONDING  TO  LAST  POINT 
TABULATED  FOR  WAVEFORM  I  RELATIVE  TO  TIMg  OF  DETONATtO 
FOR  PRECISE  DEF INI  1  ION.  SEE  SUBROUTINF  TNPT. 

•INCPFMENT  OF  TIME  VALUES  IN  SECONDS  FOR  WHICH  SUCCES¬ 
SIVE  WAVEFORM  POINTS  ARE  TABULATED. 

•MAGNITUDE  OF  HORIZONTAL  OtSTANCF  IN  KM  BETWEEN  SOURCE 
AND  OBSERVER. 

•  INTEGFR  CONTROLLING  WHICH  MOOES  ARE  INCLUDED  IN  THE 
COMPUTED  WAVEFORM.  FOR  PRFCtSF  DEFINITION,  SEE 
SUBROUTINE  TNPT, 


- PROGRAM  FOLLOWS  8EL0WS  - 


DIMENSION  statemfnts 

DIMENSION  C I (1001 «VX I ( IOOI , VVI 1 100 1 .HI  1 100) .AMP 1 1000 1 . AMPLTDI 10001 
DIMENSION  TI100)  .VKNTxnoOI,VKNTVnOO),ZIIlO0)tPHASQ(lOOO> 
DIMENSION  WANGLE  1 1001.  WINDYdOOl 
DIMENSION  OMIlOOl.VPnOOl.INMOOEUOOOO! 

OIMFNSIDN  KSTI10 ) .KF INI 10) .OMMOD « 1000) .VPMODI 1000) 


AL0CAT1DN  OF  VARIABLES  TO  COMMON  STORAGE 
COMMON  IMAX.C! .VXI.VVI.HI 


NAMFLIST  STATEMENTS 
NAMELIST  /NAM1/ 
NAMELIST  /NAM?/ 
NANfLlST  /NAM3/ 
NAMELIST  /NAM4/ 
NAMELIST  /NAM5/ 

1  VPMOO 

NAMFLIST  /N*M6/ 
NAMELIST  /NAM7/ 
NAMELIST  /NAM8/ 
NAMFLIST  /NAM9/ 
NAMELIST  /NAMIO/ 


NSTAr.T.NPRNT.NPNCH 

LANGLE, IMAX.T.VKNTX.VKNTV, WINDY. WANGLE. ZI 
IMAx.CIiVXl.VYl ,Hl 

THETKD.V1,V?,OMI.OM?.NCMI,NVPI,MAXMOD 

IMAX.C I .VX I.VY I.MI.THETKD.MDFND.KST.KFIN.OMMOD, 


ZSCPCE.ZOBS 

OMMOD.VPMOO.MOFNO.KST.KF  IN, AMP, ALAM. FACT 
Y!  ELO 

MOFNO.KST . KF IN,  OMMOO.VPMOD.AMPLTO, PHASO 

TFIRST .TENO.OELTT.ROBS.I OPT 


BEFORF  ANY  DATA  IS  READ  IN,  ALL  NAMELIST  VALUES  ARE  PRESET  TO  ZERO. 

THIS  IS  OONF  SIMPLY  TO  MAKE  NAMFLIST  PRINTOUT  EASIER  TO  READ. 
NSTART«0 
NPRNT«0 
npnch»o 
LANGLE-0 
IMAX»0 
TH*TKD«0.0 
Vl»0.0 
V?«0.0 
OM1«0.0 
0M2r0.0 
NOMI*0 
NVPI«0 


MAIN  2BI 
MAIN  282 
MAIN  283 
MAIN  284 
MAIN  285 
MAIN  286 
MAIN  287 
MAIN  288 
MAIN  289 
MAIN  290 
MAIN  291 
MAIN  292 
MAIN  293 
MAIN  294 
MAIN  295 
MAIN  296 
MAIN  297 
MAIN  298 
MAIN  299 
MAIN  300 
MAIN  301 
MAIN  302 
MAIN  303 
MAIN  304 
MAIN  305 
MAIN  306 
MAIN  307 
MAIN  308 
MAIN  309 
MAIN  310 
MAIN  311 
MAIN  312 
MAIN  313 
MAIN  314 
MAIN  315 
MAIN  316 
MAIN  317 
MAIN  318 
MAIN  319 
MAIN  320 
MAIN  321 
MAIN  322 
MAIN  323 
MAIN  324 
MAIN  325 
MAIN  326 
MAIN  327 
MAIN  328 
MAIN  329 
MAIN  330 
MAIN  331 
MAIN  332 
MAIN  J33 
MAIN  334 
MAIN  335 
MAIN  336 
MAIN  337 
MAIN  338 
MAIN  339 
MAIN  340 
MAIN  341 
MAIN  342 
MAIN  343 
MAIN  344 
MAIN  345 
MAIN  346 
MAIN  347 
MAIN  348 
MAIN  349 
MAIN  350 
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M*X  MOO*  0 
MO£NO*r< 

7SCRCF-0.0 

inos*o.o 

alam*o«o 

FACT*0.0 

yifio*o.o 

TFIRST«0.0 

TFMO-n.0 

DFlTT*0.0 

robs«o.o 

I0PT-0 

no  21  ( PR*1  ,  loo 
CM  IMS  1*0.0 

vxi  UMi*o.n 

VYlf IPR|«0.0 
HtUPR)*0.0 
TMPR  1*0,0 
VdNTXMPP  1*0.0 
VtCNTVMPPI.0.0 
2M  IP*  1*0.0 
WANGLE  I IPF 1*0.0 

WINDYf f Pp)*0,0 

rmUP«t*o,o 
;>t  vp;ipri«o.o 
00  11  1®P*1 • 10 
KSTIIPA)«0 
M  KFINIIPR)«0 

00  41  l»P*l,1000 
ANRI  I  PR) *0.0 
ANPITOMPP  1*0.0 
PMASOCIPRI-O.O 
QMMOOl tPRt-0.0 
41  VPMOOMPP  1*0.0 
C 
C 

r  STAPT  OF  EXECUTABLE  PORTION  OF  program 

r 

r  NFWRIT  IS  A  CAICOMP  SUBROUTINE  WHICH  INITIATES  THE  CAlCOMP  PLOTTER 
C  tape  F!(E.  5640  IS  THE  M.t.T.  COMMUTATION  CENTER  PROBLEM  NO.  5423  IS 

C  THE  PROGRAMMER  NO.  GRAPH  PAPER  WITH  BLACK  INK  IS  REQUESTED. 

CALL  NFWPLTI'N5640' ,' 5923' , 'WHITE  '.'BLACK  •» 
f 

1  READ  (S.NRMII 
C 

f  IT  IS  CONSIDERED  GOOO  PRACTICE  TO  HAVE  INPUT  OATA  PRINTED  ON  OUTPUT 
WRITE  16,371 

PORMATIIH  Hill  2TH1NAM1  HAS  JUST  BEEN  READ  INI 
WRITE  (6.NAM1I 

0 

C  CURRENT  VALUE  Of  NST ART  CONTROLS  THE  STAGE  AT  WHICH  COMPUTATION  BEGINS 
C  SINCE  COMPUTED  GO  TO  STATEMENTS  SOMETIMES  00  NOT  COMPILE  CORRECTLY  IE 
C  INnEK  IS  NOT  EXPLICITLY  DEFINED.  WE  PLAY  IT  SAFE  WITH  REDUNDANT 
C  STATEMENT. 

nstart«nstart 

c 

GO  TO  C 7 00 . 300. 400, 500, 600, 444), NST ART 
C 

C  WF  ARRIVE  HERE  IF  NSTART*! 

200  RFAD  15, NAM?) 
f 

WRITE  16,237) 

237  FORMATIIH  lllll  27H  N*M2  has  JUST  BEEN  READ  IN) 

W»ITE  (4.NAM21 
C 

C  CONVFRT  ATMOSPHFRIC  DATA  TO  STANOARO  FORM 

CAl t  ATMOS I T (VKNTX, VKNTY, 2 1 .WANGLE , WINDY ,LANGt E 1 
tFI  NRRNT  .LE.  0)  GO  TO  270 
f 

f  PRINT  ATMOSPHERIC  PROF  ILF  IF  NRRNT  ,6T.  0 


MAIN  351 
MAIN  353 
MAIN  353 
MAIN  354 
MAIN  355 
MAIN  35* 

MAIN  357 
MAIN  35« 

MAIN  354 
MAIN  3*0 
MAIN  3*1 
MAIN  3*2 
MAIN  3*3 
MAIN  364 
MAIN  3*5 
MAIN  36* 

MAtN  3*7 
MAIN  36* 

MAtN  3*4 
MAIN  370 
MAIN  371 
MAIN  372 
MAIN  373 
MAIN  374 
MAIN  375 
MAIN  376 
MAIN  377 
MAIN  37* 

MAIN  374 
MAtN  3*0 
MAIN  381 
MAIN  382 
MAIN  383 
MAIN  334 
MAIN  3*5 
MAIN  3** 

MAIN  387 
MAIN  3B* 

MAIN  384 
MAIN  390 
MAIN  391 
MAIN  392 
MAIN  393 
MAIN  394 
MAIN  395 
MAIN  396 
MAIN  397 
MAIN  398 
MAIN  399 
MAIN  400 
MAIN  401 
MAIN  402 
MAIN  *03 
MAIN  404 
MAIN  409 
MAIN  406 
MAIN  407 
MAIN  40* 

MAIN  *04 
MAIN  410 
MAIN  411 
MAIN  412 
MAtN  413 
MAIN  414 
MAIN  415 

MAIN  416  PROGRAM 

MAIN  417  MAtN 

MAIN  41* 

MAIN  419  PAGE 

MAIN  420  6 


CALL  P»ATMO 

r. 

??0  jet  NPNCH  .LE.  01  GO  TO  105 
f. 

f  PUNCH  NANI  OAT*  IF  NPNCH  .GT.  0 
WAITE  <T,?T1| 

771  FORMAT  <  TH  SNAN1  I 
IUHS  «  IMAX  ♦  I 

WAITE  17,2721  IMAX.ICIII). 1*1. IUHS) 

27?  FOBMAT  I  10H  IMAX  *  ,11, 1H,  /  8H  f|  s  / 

1  <  6X,015.P,1H..G15.8,1H.,C15.5,IH,.G1S.«,1H,  |  > 

WA !T£( 7*274 1  < VXI III . I *1 . IUHS ) 

??4  F0BNATC9H  VXI  «  / 

I  I  6X.015.R.lH,,G15.8,iH,.f’5.e,lH,.r.t5.».lH,  I  I 

WAITEI7.276J  CVVMII.I«l.|lj*'*l 
??6  FORMATION  WI  *  / 

1  I  6X.G15.8.1H,,G1S.A.1H,.G15.S,1H,,G16.8.1H.  )  I 

WBIT£C7*?78»  I  Hitt), 1*1, IUHS! 

??»  FORNAT  I  AH  HI  *  / 

1  I  6X.G15.8.1H,.GIS.R,1H..G18.8.1H,,G15.8.1H,  I  » 

WRITE  (7,?7<*l 
770  FORNAT  I  AH  GENO  1 
WRITE  IA.5A1I 
WRITE  IA.271I 

WRITE  16,7721  I  WAX, (C! < 1 1 , 1*1 . IUHS I 
WRITEIA.774I  <VXt(!),I*),lHMSl 
WRITE<6.??6I  IVY II 1 1 • 1*1  * tUHS 1 
WRITE 1 6*?7fll  |  Hit  I  I  *  1*1, IUHS I 
WRITE  16,7701 
780  GO  TO  106 
C 

C  WE  ARRIVE  HERE  IF  NSTART*2 
100  RFAO  (5.NAM3I 
W»ITE  15,1071 

70?  B0RNATI1H  mil  27H  NANI  HAS  JUST  SEEN  REAO  INI 
WRITE  I6.NAN1I 
IF!  NPRNT  , IE,  01  GO  TO  105 
C  print  ATNOSPHFRIC.  PBOFILE  ir  NPRNT  ,GT.  0 
CALI  PPATNn 
C 

C  CONTINUING  from  270.  280,  102,  OR  303 
105  RFAO  15, NANAI 
WRITE  (6.1071 

107  F0RNATI1H  /////  27H  NAHA  HAS  JUST  BEEN  RE*0  INI 
WRITE  (6. NANAI 

C 

r  CONVERT  THETKO  FPON  DEGREES  TO  RADIANS 
THETK  *  1 3,14159 1  *  THETKO  /  180.0 
NON  «  NON! 

'i P  *  NVPI 

C 

C  CONSTRUCT  TABLE  OF.  1NN00E  VALUES 

CAI l  TAALE(0N1,0N2, VI, V7.N0N.NVP, THETK, ON, VP, INNOOE. NPRNT) 

C 

C  COHPUTF  DISPFPSION  CURVES  op  GUIOEO  NODES 

CALL  ALLNODINVP.NOH.HAXNOD. HOFND, ON,VP,KST,KFIN,OHNOO,VPNOD, 
l  I NNOOF , TH  F  TK , K  WOP I 
C 

C  CMFfK  TO  SEE  if  ANY  NODES  WERE  FOUND 
IF (  KWO»  .OF.  01  GO  TO  370 
C 

C  FXIT  | R  KWOP  .LT.  0 

WPITF  I  6,  11 11  KWC° 

HI  FORNAT  I  iH  ,  5HKW0P*,  13) 

CAI  L  FXIT 
C 

C  CONTINUING  WITH  KWOP  ,GE.  0  FROM  308 
120  I F (  NPRNT  ,LF.  01  GO  TO  150 
C 

C  RR I NT  NOPNAl  NODE  DISPERSION  CURVES 


WAIN  A?1 
NAIN  A?2 
WAIN  423 
NAIN  424 
NAIN  426 
NAIN  476 
NAIN  4? 7 
NAIN  478 
NAIN  479 
NAIN  410 
NAIN  431 
WAIN  432 
NAIN  433 
NAIN  434 
NAIN  *3* 
NAIN  436 
NAIN  437 
NAIN  438 
NA|N  439 
NAIN  440 
NAIN  441 
NAIN  442 
NAIN  443 
NAIN  444 
NAIN  445 
NAIN  446 
NAIN  447 
NAIN  440 
NAIN  449 
NAIN  450 
NAIN  451 
NAIN  452 
NAIN  453 
NAIN  454 
NAIN  455 
NAIN  456 
NAIN  457 
NAIN  458 
NAIN  459 
NAIN  460 
NAIN  461 
NAIN  462 
NAIN  463 
NAIN  464 
NAIN  465 
NAIN  466 
NAIN  467 
NAIN  468 
NAIN  469 
NAIN  470 
NAIN  471 
NAIN  472 
NAIN  473 
NAIN  474 
NAIN  475 
NAIN  476 
NAIN  477 
NAIN  478 
NAIN  479 
NAIN  480 
NAIN  481 
NAIN  482 
NAIN  483 
NAIN  484 
MAIN  485 
MAIN  486 
NAIN  487 
MAIN  488 
MAIN  489 
NAIN  4«0 
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CALI  NOOLSTtNOFNO.DMNnO.VpMnO.KST.KFIN) 

r 

C  CONTINUING  FROM  320  PR  32! 

350  IF!  NPNCH  ,LE.  01  60  TC  360 
C 

C  PUNCH  NAM5  0*T*  IF  NPNCH  .6T.  0 
WRITE  17,351) 

351  FORMAT  1  7H  CHAM5  ) 

I  OHS  *  I*«AX  ♦  1 

WRITE  17, 7721  IMAX.tCI!  I).!»l,niHS) 

WRITFI7.274)  (VXIt I )« 1*1, 1UHS) 

WR I TE 1 7,276)  tVfttI),t*l,!UHSI 
MR  I TE 1 7,273 )  I  HI! I )« 1*1, tUHSI 
WRITE  17,15?)  THETK0«M0FN0,1KST!I).I«1.MDFND) 

35?  FORMAT  IllH  THETKO  *.G16.R,lM,/10M  MOFNO  *,I3,1H,/RM  RST  */ 
1  1  6X,615.8,IH,.G15.S,1H,.G13.8,1H,  GIS.F.IH,  )  ) 

MRITE17.355)  1KFIN! I),I*1,M0FND) 

355  FORMAT  1  10H  KFIN  «  / 

1  I  6X,G15.8,1H,,G15.8.1H,,G1S.R.1H..G15.R,1H,  )  ) 

KLAST  «  KFIN1M0FK0) 

WRITE  17,357)  I OMMOO! I ),  I *1 .KLAST) 

357  FORMAT  1  U H  OMMOO  «  / 

1  I  6X*G15«  It,  1H«  ,G15,  R,  1H,  ,G15,  R,1H,  «615«8,1H,  )  ) 

WRITF1T.359)  I VRMOOtt I , I«l,KlA$T) 

35<»  FORMAT  1  11 H  VPMOD  »  / 

1  I  6X,Cl5.8.1H,.G15.8.1M,,G15.R.lH,,Gl5.8,lM,  )  ) 

WRITE  !7,270| 

WRITE  16,593) 

WRITE  14,351) 

WRITE  14.27?)  II AX, I C!t!)«I«l. IUHS ) 

WRITE I6,?74)  (VXIII ) *1*1, IUHS) 

WRITE16.276)  1 VVI1 I ) , 1*1, IUHS) 

WRITFI6.278)  1  HH  I).  1*1,  IUHS) 

WRITE  16.352)  THFTKO.HOFND. IKST1I ) .1*1, MOFNO) 

WRITE16.355)  1KF  INI l ). I*1,MDFND) 

WRITE  14.357)  I OMMODI 1 1 ,1 *1 .KLAST) 

WRIT716.356)  1 VRMOOI I ), 1*1, XLAST) 

WRITE  16,27<») 

C 

f  CONTINUING  FROM  350  CR  351 
360  GO  TO  41 5 
C 
C 

f  WF  ARRIVE  HFRE  IF  NSTART«3 
400  RFAO  15.NAM5) 

WRITE  16,403) 

403  F0RMATI1H  /////  27H  NAM5  HAS  JUST  SEEN  REAO  IN) 

W»ITF  16.NAM5) 

C 

C  CONVERT  THETKO  FROM  DEGREES  TO  RAOIANS 
THFTk  .  13.14159)  *  THETKO  /  l'RO.O 

C 

r  CONTINUING  FROM  360  OR  402 
415  READ  15.NAM6) 

WRITE  16,417) 

417  FORMAT  1 IH  ft///  27H  NAM6  HAS  JUST  SEEN  REAO  IN) 

WRITE  I6,NAM6) 

C 

C  COMPUTE  YIELD  INDEPENDENT  AMPLITUDE  FACTORS  FOR  GUIDED  MOOES 

CALL  PAMPOE I 1SCRCE.70BS, MOFNO, KST, KFIN, OMMOO.VPMOD.AMR.ALAP, FACT. 
1  THETK.  NPRNT) 
c 

450  IF!  NPNCH  .IF.  0*  GO  TO  460 
C 

C  PUNCH  NAM 7  DATA  IF  NPNCH  ,GT.  0 
KLAST  •  KFINIMOFNO) 

WRITE  17, 45D1AMRII),  I-l, KLAST) 

45 1  FORMAT  1  TH  T.NAM7  /  9H  AMP  «  / 

l  1  6X.G15.8.1H, ,G15.9«1H,,G15.S,1H, ,G1S« 8<1H,  )  ) 

WRITE  1  7,452)  AIAM,FACT 
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45?  FO*MAT  (  10H  ALAN  •  ,G16.8,1H,  /  10H  FACT  •  ,G16.8,1H,  ) 

WRITE  (7,4551  MDFND,  (KST!  I).  I-l.MOFND) 

455  FORMAT  t  10H  MDFNO  ».I3,1H,/8H  KST  «/ 

1  (  6X,G15.8,lH.,G15.8.tH..G15.8,lK,,G15.R,lH,  )  ) 

WRlTE(7.355)  (KFINI l ),I«ltMDFND> 

WRITE  (7.357»  <  OMMOD!  I ) ,  !»1  ,KL*ST  I 

WRITFI7.359)  ( V»MOO( I ) , I«1 .KLAST  • 

WRITE  (7.279» 

WRITE  (4.583) 

WRITE  ( 6,451 )( AHP(  I  1. 1*1  .KLAST) 

WRITF  (6,4521  ALAN, FACT 

WRITE  (6.455)  MDFNO, (KST(t I. |«l, MDFND) 

WRI TE (6,355 1  (KFINI I ) ,I»I .HOFND) 

WRITF  (6.357)  ( OMMODd  )  ,1  >1  .KLAST) 

WRITEI6.350)  (VPMOOO  ),I«1, KLAST) 

459  WR ITE  (6.279) 

C 

C  CONTINUING  FROM  450  CR  459 

460  GO  TO  515 


WE  ARRIVE  MERE  IF  NSTART-4 

500  REAO  (5.NAMT) 

WRITE  (6.501) 

501  FORMAT ( 1H  lllll  2TH  NAM7  HAS  JUST  BEEN  READ  IN) 

502  WRITE  (6.NAM7) 

C 

C  CONTINUING  FROM  460  OR  502 

515  READ  (5. NANS) 

WRITF  (6,516) 

516  FORMAT!  IH  Hill  27H  NANS  MAS  JUST  BEEN  READ  IN) 

517  WRITE  ( 6.NAMR) 

C 

C  COMPUTE  VIFLD  DEPENDENT  AMPLITUDES  AND  PHASE  TERMS  OF  GUIDED  MODES 

CALL  PPAMPlV IFLO.MOFNO.KST ,KFtN, ONMOD, VPNOD, AMP, ALAN, FACT.AMPLTD, 
1  PHASO) 

518  IF(  NPRNT  .LE.  0  )  GO  TP  580 

C  THE  RESULTS  OF  CALLING  PPAMP  ARE  PRINTED  OUT  BY  CALLING  TABPRT 

520  CALL  TABPRTIYIELO, MOFNO, KST.KFIN.OMMOD.VPML  .AMPLTD,  PHASO) 

C. 

f  CONTINUING  FROM  518  OR  520 

580  !F(  NPNCH  ,LE.  0)  GO  TO  590 
C 

C  PUNCH  NAM9  OATA  IF  NPNCH  ,GT.  0 
KLAST  ■  KFINIMOFND) 

WRITF  (7,581)  ( AWPLTOI I ) , I“1 .KLAST ) 

581  FORMAT  (  7H  CNAM9  /  12H  AMPLTD  ■  I 

1  (  6X,G15.8,1H,,G15,8,1H,,G15.S,IH, ,G1 5.8, 1H,  )  ) 

WRITE  (7,582)  ( PHASO( 1 1 . 1«1 .KLAST) 

58?  FORMAT  (  11H  PHASO  *  I 

1  {  6X.G1S. 8 . 1H, ,G1 5. 8,1H, ,G15,C,1H,,G15.8,1H,  )  ) 

WRITE  (7.455)  MDFN0,(KST(II,I»1,MDFND) 

WRITF (7,355 )  ( XF IN(t) , I«1 , MDFNO) 

WRITE  (  7,357)  ( OMMOOI 1 1 , I »1 .KLAST) 

WRITF! 7, 3591  (VPMOOd  I,  I-i, KLAST  I 
WRITE  (7,279) 

WRITE  (6,583) 

583  FORMAT!  1H  Hill  41H  THE  FOLLOWING  ORTA  Has  JUST  BFFN  PUNCHED) 
WRITE  16,581)  (AMPLTOdl,  1*1, KLAST) 

WRITE  16,582)  I PHASO ( l), 1*1, KLAST) 

WRITE  (4,455)  MDFND, (KST( I ),I«1, MDFND) 

WR I TE 16,355)  « KF IN! I ) , I «l .MDFND) 

WRITE  16,357)  (CMMOO! I ), I»t, KLAST) 

WRITE (6,359)  ( VPMOD! I ) , !«1 , KLAST ) 

584  WRITE  (6,279) 

C 

C  CONTINUING  FROM  580  OR  584 

590  GO  TO  615 
r 
r 
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f  UF  ARRIVE  MERF  IF  NSTART«5 

600  READ  (3.NAN9I 
UNITE  (6.601  I 

601  FOPHATUH  lllll  27H  NAM9  HAS  JUST  RFEN  RF  AO  INI 
607  URtTE  I6.NAM9I 

f 

r.  continuing  f»oh  590  op  60? 

615  READ  I5.NAM10I 
UNITE  16.6161 

616  FORMAT  I  IH  lllll  29H  NAM10  HAS  JUST  BEEN  orAO  INI 
UR1TF  (6.NAH101 

r 

C  COMPUTATION  of  UAVEFORN 

CAU  TNPTCTFIRST.TFNO.OELTT.PORS.NDFNO.NST.NFIN.OMMOO.VPUnC, 
l  ANPLTO.PHASO, 10PT1 
f 

C  PEPEAT  FOR  NEXT  WAVEFORM 
GO  TO  l 
r. 

r  WF  APR |VF  HFPF  |F  NSTA® T  »  6. 
r  F NOPLOT  TERMINATES  THE  CALfONP  TAPE  FILE. 

9<»9  CALL  ENOPLT 
CALL  EXIT 
ENO 
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r 

AAAA  (SUBROUTINE!  7/25/68 

AAAA 

1 

r 

AAAA 

2 

c 

- ABSTRACT - 

AAAA 

3 

r 

AAAA 

6 

c 

TITLF  -  AAAA 

AAAA 

5 

c 

THIS  SUBROUTINE  CONFUTES  THE  2-BY-?  MATRIX  A  OF  COEFFICIENTS 

AAAA 

6 

r. 

IN  THE  RFSIOUAI  FOUATIONS 

AAAA 

7 

c 

AAAA 

8 

c 

0(FHI1 !/0Z  *  (All !*PHI 1  ♦  (A12!*PHI? 

AAAA 

9 

r. 

AAAA 

10 

c 

0IPHI2I/0Z  *  ( A21 l*PHI l  ♦  (A22I*PHI2 

AAAA 

11 

c 

AAAA 

12 

c 

OFRIVFD  t'Y  A.  PIERCE,  J.  CONP.  PHVS..  VOL.  1,  NO.  3.  363. 

"366. 

AAAA 

13 

c 

1967.  (SEE  EON.  (10!  OF  THE  PAPER.  1  THE  FXPUCIT  EXPRESSIONS 

AAAA 

16 

c 

FOR  THE  Alt.Jl  ARE 

AAAA 

15 

c 

AAAA 

16 

r 

A(l. 11  »  G*(K/80m|*»2  -  gANNA*G/ ( 2*C**2 • 

AAAA 

17 

r 

All.?)  *  1  -  (C*K/R0M)>*2 

AAAA 

IB 

c 

A( 2 ,1 1  ■  ( (G*K)/( BOM»C! 1**2  -  (8nM/C!**2 

AAAA 

19 

r 

AI2.2I  >  —A (1.1! 

AAAA 

20 

c 

AAAA 

21 

r 

HHFRE  GANMA-1.6  IS  THE  SPECIFIC  HEAT  RATIO.  G>.009S  KM/SEC**2 

AAAA 

22 

c 

IS  THE  ACCELERATION  OF  GRAVITY,  C  IS  THE  SOUND  SPFEO,  K  IS  THE 

AAAA 

23 

c 

HORIZONTAL  HAVE  NUNPER  ANO  BON  IS  THE  DOPPLER  SHIFTEO  ANGULAR 

AAAA 

26 

f 

FREQUENCY 

AAAA 

29 

r. 

AAAA 

26 

c 

LANGUAGF  -  FORTRAN  tV  (360.  REFERENCE  MANUAL  C28-6515-6I 

AAAA 

27 

c 

AUTHOR  -  A.O.PIERCE.  N.t.T..  JULY. 1968 

AAAA 

28 

c 

AAAA 

29 

r 

- CALLING  SEQUENCE - 

AAAA 

30 

c 

AAAA 

31 

r. 

SEF  SUBROUTINES  EL1NT,  MHNM,  NAMPOE.  NNOFN 

AAAA 

32 

c 

DIHENSION  A(2,2I 

AAAA 

33 

c 

CALL  aaaaionega.akx.aky.c.vx.vy.a) 

AAAA 

36 

c 

AAAA 

39 

c 

NO 

EXTERNAL  SUBROUTINES  ARE  REQUIRED 

AAAA 

36 

c 

AAAA 

37 

r 

- ARGUNENT  LIST - 

AAAA 

31 

c 

AAAA 

39 

c 

ONEGA  R*6  NO  INP 

AAAA 

60 

r 

AKX  R*6  NO  INP 

AAAA 

61 

c 

AKY  R*6  NO  INP 

AAAA 

62 

r 

C  R*6  NO  INP 

AAAA 

63 

r 

VX  R*6  NO  INP 

AAAA 

66 

c 

VY  R*6  NO  INP 

AAAA 

61 

c 

A  R*6  2-BV-2  OUT 

AAAA 

66 

c 

AAAA 

67 

c 

NO 

CONNON  STORAGE  IS  USED 

AAAA 

61 

c 

AAAA 

69 

r 

- INPUTS - 

AAAA 

SO 

c 

* 

AAAA 

91 

c 

OMEGA  "ANGULAR  FREQUENCY  IN  RAD/SEC 

AAAA 

92 

c 

AKX  "X  COMPONENT  OF  HORIZONTAL  HAVE  NUMBER  VECTOR  IN 

l/KN 

AAAA 

It 

c 

AKY  «Y  COMPONENT  OF  HORIZONTAL  HAVE  NUMBER  VECTOR  IN 

1/KM 

AAAA 

96 

c 

C  "SOUND  SPEED  IN  KM/SEC 

AAAA 

99 

c 

VX  "X  COMPONENT  OF  HIND  VELOCITY  IN  KM/SEC 

AAAA 

96 

c 

VY  »Y  COMPONENT  OF  UINO  VELOCITY  IN  KM/SEC 

AAAA 

SI 

c 

. 

AAAA 

SI 

r 

- OUTPUTS - 

AAAA 

99 

c 

AAAA 

60 

r 

A(I.J)  "(I.JI-TH  ELEMENT  OF  MATRIX  A  OF  COEFFICIESTS  IN 

THE 

AAAA 

61 

r. 

RESIDUAL  EQUATIONS  AS  DEFINED  IN  THF  ABSTRACT. 

AAAA 

62 

r. 

AAAA 

61 

c 

- PROGRAM  FOLLOHS  BELOW 

AAAA 

66 

c 

AAAA 

AS 

SUBROUTINE  AAAAI OMEGA, AKX. AKY, C, VX, VY. A) 

AAAA 

66 

r. 

AAAA 

67 

DIMENSION  A(2,2) 

AAAA 

66 

80MSQ" (ONEGA-AKX*VX-AKY*VY 1**2 

AAAA 

69 

CSO"C*C 

AAAA 

TO 

MOORAtl 

AAAA 

RAII7 

U 
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T«<AKX**?MKV**?»/R0NS0 
A*  1 . 1 1 «. 009**T>. 00686/C  SO 
f  r*M*«G/?  !S  .00686 
All. 21*1. 0-fS0*T 
A(?.U*<(46.04£-6)*T-ft0MS0)/CS0 
f  f.«»?  IS  46.04S-6  KN**2/SEC**4 
A(2.?<— Atl.l) 

RETURN 

FNO 


Utl  71 
AM*  72 
AAA*  71 
AAAA  74 
AAAA  75 
AAAA  76 
AAAA  77 
AAAA  78 
AAAA  74 


RR00RAK 

AAAA 


c 

AM  (SUBROUTINE)  8/15/68 

AM 

1 

c 

AKI 

2 

c 

AKt 

1 

c 

- ABSTRACT--  - 

AKI 

A 

r 

AKI 

5 

c 

TITLE  -  AM 

AKI 

6 

c 

EVALUATION  OF  INTEGRAL  OF  £ t ONEGA )*COS( PHI (0NFGA) )  FRO*  0H1  TO 

AKI 

7 

c 

012 

AKI 

» 

r 

AKt 

9 

f 

AlCMEGAt  and  PHMQNEGA!  ARE  ASSUNEO  TO  BF  LINEAR  BETUFFN 

AKI 

10 

c 

ONl  ANO  ON?,  FOLLOWING  THE  NETHOD  OF  AM  I  J.  GFOPHVS. 

AKI 

11 

c 

RFS, ,  VOL.  6S  1 1960),  PP.  T29-7A0  I.  THE  INTEGRAL  IS 

AKt 

12 

r. 

REAOILV  EVALUATED  AS 

AKI 

11 

c 

AKt 

1A 

c 

(PHI* l**(-l I  *  <  A I  ♦  A' *( 0N2-0N1 1 )  *  StN(PHttAX) 

AKt 

15 

r 

AKI 

16 

c 

♦  PHI»**(-2)  *  A*  «  COSIPHII  ♦  XI 

AKI 

17 

c 

AKI 

18 

r 

-  PHl***<-lt  «  ( A I  -  A‘  *  ION?  -  0*1 I I  *  SINIPHIt-XI 

AKI 

19 

c 

AKI 

20 

r 

-  PHI •**<-2)  •  A*  *  COS I PHI  -  X) 

AKt 

21 

c 

AKt 

22 

r 

where 

AKI 

23 

f. 

AKI 

2A 

C 

AI  •  AVERAGE  VALUE  OF  A  IN  INTERVAL 

AKt 

25 

C 

PHIt  ■  AVERAGE  VALUE  OF  PHI  IN  INTERVAL 

AKt 

26 

r 

A*  »  0(A)  /  OlONECA) 

AKI 

27 

r 

PHI'  *  O(PHI)  /  DIONEGA) 

AKI 

28 

r. 

X  •  PHI*  •  (0N2  -  ONI)  /  2 

AKI 

29 

c 

AKI 

10 

r 

A  SPWEWHAT  NORF  CONVENIENT  FORHULA  OBTAINABLE  BV  TRIGONO¬ 

AKI 

31 

c 

METRIC  IDENTITIES  IS 

AKI 

32 

c 

AM 

33 

c 

AMINT  «  2  *  PHP**(-1)  *  At  *  SIMM  *  COS(PHII) 

AKI 

3A 

r 

AKI 

35 

c 

♦  2  *  PHl*«*(-2)  *  A«  *  IX  *  COSIX)  -  SIN(XI) 

AKI 

36 

c 

AKI 

37 

c 

*  S I N  f  PH  II)  . 

AKI 

38 

c 

AKI 

39 

c 

WHENEVFR  X  IS  SMALL.  SINIXt/X  AND  COSIX)  ARE  EVALUATED  BV 

AKt 

AO 

f 

USING  THEIR  POWER  SERIES  REPRESENTATIONS. 

AKI 

At 

c 

AKI 

A2 

c 

LANGUAGE 

FORTRAN  IV  (160,  REFERENCE  MANUAL  C28-6515-A) 

AKI 

A3 

c 

AKt 

AA 

r. 

AUTHORS 

A. D. PIERCE  AND  J.POSFV,  M.I.T.,  AUGUST, 1968 

AKI 

A5 

c 

AKI 

A6 

r 

AKI 

AT 

c 

- USAGF - 

AKI 

A8 

r 

AKI 

A9 

r 

NO  SUBROUTINES  APF  CALLED 

AKt 

50 

r. 

• 

AKI 

51 

r 

FORTRAN  USAGE 

AKI 

52 

r 

AKI 

53 

r. 

CALL  AK)(OMl,OM2,Al,A2,CTRlGl,STRIGl.CTRIG2,STRIG2, 

AKI 

5A 

c 

1  DEL  PH, 

AM  I  NT) 

AKI 

55 

r. 

AKI 

56 

c 

INPUTS 

AKI 

57 

c 

AKI 

58 

c 

ONI 

LOWER  LIMIT  OF  INTEGRATION  OVER  ANGULAR  FREQUENCY 

AKI 

59 

r 

R*A 

(RADIANS) 

AKt 

60 

r 

AKI 

61 

c 

ON? 

UPPER  LIMIT  OF  INTEGRATION  (RADIANS) 

AKI 

62 

c 

R*A 

AKI 

63 

r 

AKI 

6A 

r. 

A! 

VALUE  OF  A  AT  OMFGA  «  OMl 

AKt 

65 

c. 

R*A 

AKt 

66 

c 

AKt 

67 

r 

A? 

VALUE  OF  A  AT  OMFGA  »  0M2 

AKI 

68 

r. 

R*A 

AKI 

69 

r. 

AKI 
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f.  CTRIGl  COSI*Kl  (  WHERE  ONEGA  <  ONI 
C  Mt 

C 

C  STRIG1  SINIPHI)  WHE*E  OMEGA  «  0*1 

C  R*4 

f 

C  OELPH  CHANGE  IN  PHI  OVER  THE  INTERVAt  1  PHI(0*2»  -  PHIIONII  ) 

f  R*4  (RAOIANSi 

C 

C  OUTPUTS 
C 

r  CTRIG2  COSIPHM  NHERE  ONEGA  •  0N2 

C  R*A 

C 

f  STPJC?  S INI  PHI)  NHERE  ONEGA  *  0N2 

r  r*a 

c 

C  AKIINf  VALUE  OF  INTEGRAL  DEFINED  IN  ABSTRACT  IN  UNITS  Op  A*OMEGA 

f  R*4 

C 

c 

f  - PROGRAN  FOLLOWS  BELOW - 

C 

r 

SUBROUTINE  AKt(ONl,aN2,Al,A2,CTR!Gl.STRIGt.CTRtG2, 

1  Sl4 IG2 .DELPH. AK I INT > 

0EinN«0P2-0Nl 

0ELAA*A?-A1 

C 

AI«U2*41l/?„0 

X«0£lpH/2.0 

CTRX-C0SIX1 

STRX«SINtX> 

CTRIGI-CTRIG1*CTRX-STRIG1PSTRX 
STRIGI»STRI61*CTRX*CTRIG1*STRX 
CTR tC2*CTRI6I*CTRX-ST*IGl*STRX 
STRIG2«STRIGI*CTRX*CTR!GI*STRX 
IFIARSIXI-1.0F-2I  20.20,10 
10  S1«STRX/X 

S2«1S1-CTRX)/X**2 
GO  TO  30 

20  SI>1.0-(1.0/6.0I*X«*2«(1.0/120.0)*X**4 

S2»I l .0/3,01-1 1. 0/30.0 1 *X**2* 1 1.0/840. 01*X«*4 
30  AKttNT-tAI*$l*CTRIGl-0ELAA*0ELPH*0.25*S2*STRIGI)«0EL0N 
RETURN 
END 
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ALLMOO  ISUBRCUTINFl 


6225/63 


TtTLE  -  AILMOO 

PROGRAM  TO  TARULATF  DISPERSION  CURVES  OF  UP  TO  MAXIMO  GUIOEO 
MOOES.  ONLY  PORTIONS  OF  CURVES  WITH  ONEGA  BETWEEN  .0M| II  AND 
OHINCOLI  AND  MITH  PHASE  VEIOCITV  BETWEEN  VPINCOU  AND  VPIII 
ARF  TABULATED.  THE  ANGULAR  DEVIATION  OF  GROUP  VELOCITV  DIREC¬ 
TION  FROM  PHASE  VELOCITV  DIRECTION  THETK  IS  NEGLECTED. 
SUCCFSSIVF  MOOES  NUMBERED  FROM  1  TO  MOFNO  ARE  EACH  TABULATED  BV 
CALLING  SUBROUTINE  NOOETR.  STARTING  POINTS  FOR  EACH  MOOE  ARE 
FOUND  BV  CALLING  SUBROUTINE  NXNODE.  THE  NORMAL  MOOE  DISPERSION 
FUNCTION  (NMDFt  SHOULD  BE  NEARLV  ZERO  FOR  EVERY  TABULATED  POINT 
ON  EACH  CISPERSION  CURVE.  THE  COMPUTATIONAL  METHOO  IS  BASEC 
ON  THE  PREVIOUSLY  COMPUTED  VALUES  OF  THE  NMOF  SIGN 
INMODE C C J-l l*NROW*t 1  AT  POINTS  II, Jl  IN  A  RECTANGULAR  ARRAY  OF 
NROH  POMS  AND  NCOL  COLUMNS.  DIFFERENT  COLUMNS  IJI  CORRESPOND 
TO  DIFFERENT  ANGULAR  FREQUENCIES  OMIJt  WHILE  DIFFERENT  ROWS  (It 
CORRESPOND  TO  DIFFERENT  PHASE  VELOCITIES  VPIII.  IT  IS  ASSUMED 
THAT  VPIII  .GT.  VPI 21  .CT.  VPI2I.  ETC.  DISPERSION  CURVES 
OF  VARIOUS  MOOES  APPEAR  ON  THIS  ARRAY  AS  LINES  OF  OEMA*CATtON 
BETWEEN  AOJACENT  REGIONS  WITH  OPPOSITF  INNODES.  IT  IS  ASSUMED 
THAT  DISPERSION  CURVES  SLOPE  OOWNWAROS.  NODES  ARE  NUNBEREO 
STARTING  FROM  LOWER  LEFT  OF  INMODE  ARRAY. 

PROGRAM  NOTES 


THE  ARRAYS  OMMOo  AND  VPMOD  ARE  USED  TO  STORE  OISPERSION 
CURVES  FOR  ALL  THE  MODES  TO  CONSERVE  STORAGE.  FOR  THE 
NMOOE-TH  MODE,  VPMODIKSTINMOOElPK-ll  IS  THE  PHASE  VELOCIT 
CORRESPONDING  TO  ANGULAR  FREQUENCY  OF  OMMODIKSTINMOOEIA 
K-Il.  THE  PAIR  OF  VALUES  CORRESPONDS  TO  THE  K-TH  TABULAT 
POINT  FOR  THE  MODE.  THE  LAST  TABULATED  POINT  FOR  THE 
NMODE-TH  MOOE  IS  LABELED  BY  THE  PAIR  VPMOOIKF ININMODEt I . 
OMMOOIKFININMODE II.  THUS  OMMODIKI,  VPHOOIKl  FOR 
X  .GE.  KST INMODE I  AND  K  .LT.  KFININMODEI  DESCRIBE  THE 
NMOOE-TH  MOOE-S  OISPERSION  CURVE. 

THE  FLAG  KWOP  IS  NORMALLY  RETURNED  AS  l.  HOWEVER,  IF 
NO  OISPERSION  CURVES  ARE  TABULATEO,  KWOP  IS  RETURNEO  AS 
-1. 

LANGUAGE  -  FORTRAN  IV  1360,  REFERENCE  MANUAL  C26-6515-AI 
AUTHOR  -  A.n.PlFRCF,  M.I.T.,  JUNE, 1968 

- CALLING  SEQUENCE - 

$FF  MAIN  PROGRAM 

DIMENSION  OMlIOOl ,VPI 100 1 , KST 1 10I.KF INI  101 .OMHODI 10001 .VPMOD ( 10001 
DIMENSION  INMODE  I  '<0001 

OIMFNSION  CltlOOI,VXltlOOI,VYItlOOI,Ht(lOOI 
THE  SUBROUTINE  USFS  VARIABLE  DIMENSIONING.  THE  ASSIGNMENTS  ABOVE  ARE 
THOSE  GIVEN  BY  MAIN  PROGRAM 
COMMON  IMAK.CI, VXI,VYI,HI 

ATMOSPHFRtC  VARIABLES  MUST  BE  IN  COMMON  BEFORE  ALLMOD  IS  CALLED. 

CALL  ALL  MODI  NROW, NCOL  .MAX  MOO,  MDFND.OM,  VP,KST,KFIN,OMMOO,  VP»-OD» 

1  INMODE, THETK.KWCP 
IFIKWOP  .NE.  It  GO  SOMEWHERE 

- EXTERNAL  SUBROUTINES  REQUIRED - 

NXMOOE.MODFTR.HXTPNT ,RTM  t.FNMODl, FNM002.NM0FN, AAAA ,RRRR,MMMM,CA t , S 

NXMOOF  ANO  MCDETR  ARE  EXPLICITLY  CALLED.  THE  REST  ARE 
IMPLICITLY  CALLEO  BY  CALLING  MODETR.  FOR  FURTHER  INFORMATION 
ON  IB*  SCIENTIFIC  SUBROUTINE  PACKAGE  ROUTINE  KTMI,  SFE  OOCU- 
MFNTAT l ON  OF  MOOETR. 

- ARGtlMtNT  LIST - 
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AUM 
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9 

ALLM 

to 
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11 
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ALLM 
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ALLM 

IS 

ALLM 

16 

ALLM 

IT 

ALLM 

IB 

ALLM 

19 

ALLM 

20 

ALLM 

21 

ALLM 

22 

ALLM 

23 

ALLM 

24 

ALLM 

25 

ALLM 

26 

ALLM 

2T 

ALLM 

2B 

ALLM 

29 

ALLM 

30 

ALLM 

31 

ALLM 

32 

ALLM 

33 

ALLM 

34 

ALLM 

35 

ALLM 

36 

ALLM 

37 

ALLM 

38 

ALLM 

39 

ALLM 

40 

ALLM 

41 

ALLM 

42 

ALLM 

43 

ALLM 

44 

ALLM 

45 

ALLM 

46 

ALLM 

47 

ALLM 

48 

ALLM 

49 

ALLM 

50 

ALLM 

51 

ALLM 

52 

ALLM 

53 

ALLM 

54 

ALLM 

55 

ALLM 

56 

ALLM 

57 

ALLM 

58 

ALLM 

59 

ALLM 

60 

ALLM 

61 

ALLM 

62 

ALLM 

63 

ALLM 

64 

ALLM 

65 

ALLM 

66 

PROGRAM 
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ALLM 

68 

ALLM 

69 
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f 

NROW 

1*6  NO  INP 

ALLM 

n 

f 

ncol 

1*6  NO  INP 

ALLM 

7? 

f. 

maxmod 

t*4  NO  INP 

ALLM 

73 

f 

WlffO 

t*4  NO  OUT 

ALIM 

74 

f 

on 

R«4  VAX  INP 

ALLM 

75 

f. 

v» 

9*4  VAX  INP 

ALL" 

7  f 

c 

KST 

1*4  VAX  OUT 

ALL** 

77 

c 

KFIN 

t*4  VAX  OUT 

ALLM 

7B 

f 

TMMPO 

R*4  VA*  OUT 

ALLM 

79 

f 

VPMOD 

R«A  VAR  OUT 

ALLM 

BO 

f 

INHOOE 

1*4  VAR  INP 

ALLM 

B1 

f 

thetk 

R*4  NO  INP 

ALLM 

3? 

c 

KWOP 

1*4  NO  OUT 

ALL* 

B3 

c 

ALLM 

64 

c 

common  storage 

USED 

ALLM 

BS 

r 

COMMON  tMAX.CI .VXI ,VV1 .HI .OMEGAC.VPHSEC.THETKP 

ALLM 

B6 

c 

ALLM 

B7 

r 

1  MAX 

1*4  NO  INP 

ALLM 

BS 

c 

a 

P*4  100  INP 

AllM 

80 

r 

VXI 

R*4  100  INP 

ALLM 

NO 

r 

Wl 

»*4  ICO  INP 

ALLM 

«1 

r 

HI 

R*4  100  INP 

ALLM 

32 

c 

OMEGAC 

R*4  ’  NO  OUT  I USED  INTERNALLY) 

ALLM 

93 

c 

VPHSFf 

P*4  NO  OUT  (USED  INTERNALLY! 

ALLM 

94 

c 

THETKP 

R*4  NO  OUT  (USEO  INTERNALLY! 

ALLM 

95 

r 

ALLM 

96 

r 

- INPUTS - 

AUM 

97 

r 

ALLM 

9R 

f. 

NROM 

•number  OF  ROWS  in  INHOOE  array,  maximum  index  OF 

ALLM 

99 

r 

VPINl. 

ALLM 

100 

c 

NCOl 

•NUMBER  OF  COLUMNS  IN  INMQOE  ARRAY.  MAXIMUM  INDEX  OF 

ALLM 

101 

r 

OMINI. 

ALLM 

102 

r 

MAXHOO 

•MAXIMUM  NUMBER  Of  MODES  TO  BE  TABULATED 

ALLM 

101 

r 

OMINI 

•ANGULAR  FREOUENCY  OF  N-TH  COLUMN  IN  INMOOE  ARRAY 

ALLM 

104 

f 

VPCNi 

•PHASE  VFLOCITY  OF  N-TH  ROW  IN  INMOOE  ARRAY 

ALLM 

105 

r 

1HMOOF 

*1.-1.  OR  S  DEPENDING  ON  WHETHER  SIGN  OF  NORMAL  MODE 

ALLM 

106 

r 

niSPF®SION  FUNCTION  IS  ♦  OR  ",  5  IF  WHOP  OOESNT  EXIST 

ALLM 

107 

c 

TH*  I J-l !*NROW*l-TH  ELEMENT  CORRESPONDS  TO  NMDF  WHEN 

ALLM 

106 

r 

omega-omiji,  phase  velocitwpiii. 

ALLM 

109 

r 

TMFTK 

•PHASE  VELOCITY  DIRECTION  IN  RADIANS  RECKONED  COUNTER¬ 

ALLM 

110 

r 

CLOCKWISE  WITH  RESPECT  TO  X  AXIS. 

ALLM 

111 

r 

(MAX 

•NUMBER  OF  ATMOSPHERIC  LAYERS  OF  FINITE  THICKNESS 

ALLM 

112 

c 

CMU 

•SOUNO  SPFFO  IN  I-TH  LAVER 

ALLM 

113 

r 

VXI  in 

•X  COMPONENT  OF  WIND  VELOCITY  IN  I-TH  LAYER 

ALLM 

114 

r 

vviin 

•V  COMPONENT  OF  WINO  VELOCITY  IN  I-TH  LAYER 

ALLM 

115 

r 

hum 

•THICKNESS  OF  I-TH  LAYER 

ALLM 

116 

f 

ALLM 

117 

C 

- OUTPUTS - 

ALLM 

118 

r 

ALLM 

119 

c 

MDFNO 

•NUMBER  OF  MOOES  FOUND 

ALLM 

120 

r 

KSTINI 

•  INDEX  OF  FIRST  TABULATEO  POINT  IN  N-TH  MODE 

ALLM 

121 

c 

KFININ! 

•INDEX  OF  LAST  TABULATEO  POINT  IN  N-TH  WOOF.  IN 

ALLM 

122 

r 

GENERAL,  KFIN(N)*KST|N*1)-1. 

ALLM 

123 

r 

OMMOOINI 

•ARRAY  STORING  ANGULAR  FREQUENCY  ORDINATE  OF  POINTS 

ALLM 

124 

c 

ON  DISPERSION  CURVES.  THE  NMOOE  MOOE  IS  STORED  FOR 

ALLM 

125 

r. 

N  BETWEEN  XSTINMOOE!  and  kfininmooe). 

ALLM 

126 

c 

VPMODIN! 

•ARRAY  STORING  PHASE  VELOCITY  ORDJNATF  OF  POINTS  ON 

ALLM 

127 

c 

OISPERSION  CURVES.  THE  NMOOE-TH  MODE  IS  STOREO  FOR 

ALLM 

128 

r 

N  BETWEEN  KSTINMODEI  AND  KFININMOOE! . 

ALLM 

129 

r 

KWOP 

»-l  IF  NO  MOOES  AXE  TABULATEO.  OTHERWISE  IT  IS  t. 

ALLM 

130 

c 

OMEGAC 

•INTERNALLY  USEO  FREQUENCY  TRANSMITTED  AMONG  SUBROUTIN 

ALLM 

131 

r 

THROUGH  COMMON 

ALLM 

132 

r. 

vphsec 

•INTERNALLY  USED  PHASE  VELOCITY  TRANSMITTED  AMONG 

ALLM 

133 

r 

SUBROUTINES  THROUGH  COMMON 

ALLM 

134 

r. 

THEJXP 

•SAME  AS  THETK 

ALLM 

135 

c 

ALLM 

136 

c 

- EXAMPLE - 

ALLM 

137 

c 

ALLM 

138 

c 

SUPPOSE  IMF  TABLE  OF  INMOOE  VALUES  IS  AS  SHOWN  BELOW  WITH 

ALLM 

139 

r 

ALLM 

140 

PROGRAM 
All MOO 

PACE 
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r 

— ♦  NROW«A«  NCGL*10 

ALIN 

141 

f 

— 

ALIN 

142 

c 

♦♦♦♦ - ♦♦  IF  NAXMOD-IO,  YOU  SHOULD  FIND  NDFN0»6. 

AUN 

143 

c 

3 - ♦♦♦ - 

ALIM 

144 

r 

<♦♦-♦♦♦♦♦♦  KSTtlt*l  KF INI  1 1*4  ONNODI 1-361  SHOULD  HE 

ALIM 

145 

c 

!♦♦-+♦♦♦♦♦  KSTI ?t*5  KFTNI21*10  VPMOOI1-36I  TABULATED 

AllM 

146 

r. 

KSTI31-11  KF  IN!  31*21 

ALIM 

147 

c 

KSTt4t*22  KF INI  41*29 

AUN 

14B 

r 

KSTI5t«3D  KF INI5 1*34 

ALIM 

144 

r. 

K$Tt6J«35  KF  INI  6 1*36 

ALIM 

150 

c 

AUN 

151 

r 

ALLM 

152 

c 

- PROGRAM  Fill  IONS  BELOW - 

AUN 

153 

r 

ALLM 

154 

c 

ALLM 

153 

SUBROUTINE  All MODI NROW. NCOL .MAXHOD.NOFND.ON.VP.KST.KFIN.OHNOO. 

ALLM 

156 

1  VPNQO. INMOOE.THETK.KHCP ) 

ALLM 

137 

c 

ALLM 

158 

DIMENSION  CItlOOl.VXItlOOl.VYttlOOt.HIt lOOt 

ALLM 

15** 

0 1 ME NS I DM  OMI1I .VPIlt .KSTtl 1 ,KF INI  1 I . ONMOOt It , VP  OOI 1 1 • INMODE! 1 1 

ALLM 

160 

COMMON  imax.ci.vxi.vyi.hi.onegac.vphsec.thetkp 

AUN 

161 

c 

ALLM 

162 

c 

STORE  THETK  IN  COMMON 

ALLM 

163 

THETKP«THETK 

ALLM 

164 

r 

ALLM 

163 

c 

AT  THIS  POINT.  WF  HAVEN-T  FOUND  ANY  MOOES 

ALLM 

166 

“DFNO-0 

ALLM 

167 

c 

ALLM 

168 

r 

ME  START  SEARCH  FOR  FIRST  MOOF  IN  10HER  LEFT  CORNER  OF  INMODF  ARRAY. 

ALLM 

165 

r 

ME  SEEK  A  POINT  MITH  INMODF  ,NF.  5  WHERE  THE  NMDF  EXISTS. 

ALLM 

170 

NNOOE-1 

ALLM 

171 

KSTINM00EI*1 

AUM 

172 

IST.NROM 

ALLM 

173 

f 

ALLM 

174 

c 

THE  SEARCH  GOES  TO  TEE  RIGHT.  IF  HE  OON-T  FIND  A  POINT  IN  THE  BOTTOM 

ALLM 

175 

c 

POM.  ME  TRY  THE  INROM-1 )-TH  ROM,  ETC.  AT  STATEMENT  2  ME  ARE  STARTING 

ALLM 

176 

r 

AT  THE  LEFT  OF  A  GIVEN  ROM. 

AUM 

177 

2  JST*1 

ALLM 

178 

3  10* INMODE  1 1 JST-1 1*NR0W*IST  1 

AUM 

179 

IFIIO  .NE.  51  GO  TO  10 

AUM 

180 

r. 

AUM 

181 

c 

IF  JST  IS  NOT  NCOL  ME  GO  TP  THE  RIGHT. 

AUM 

182 

IFIJST  .FO.  NCOL  1  GO  TO  5 

AUM 

183 

JST-JSTM 

AUM 

184 

GO  TO  3 

ALLM 

183 

c 

AUM 

186 

r 

AT  This  point  me  have  exhausted  AN  ENTIRE  ROM.  me  go  to  the  next 
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c  titlf  -  r»t 

r  PROGRAM  TO  FVALUA TF  FUNCTION  CAIIX)  FOR  GIVEN  VARIABLE  X. 

C  IF  X  IS  NEGATIVE,  CAIIXI*  COS  I SORTI-X 1 1 .  IF  X  IS  ROSITIVF, 

C  CAIIXI*  COSHISO»TI*X)).  THE  FUNCTION  IS  ALSO  REPRESENTABLE 

C  RV  THE  POWFR  SERIFS 
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C  CAIIXI*  1  ♦  X/I2EACT)  ♦  X«*2/I4FACT)  ♦  X9*3/I6FACT)  ♦  ... 

C. 
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- ABSTRACT - 


TITLE  -  FLINT 

THIS  SUBROUTINE  CONRUTES  THE  1NTFGRAL 

AINT  *  INTEGRAL  OVER  2  FROM  0  TO  H  OF 

I A1*F1( 2  |  ♦  A2*F2(2>>**2  III 

THE  FUNCTIONS  F1I7!  ANO  F2I2)  ARE  THF  SOLUTIONS  OF  THE  COURLEO 
OROINARV  DIFFERENTIAL  EOUATtONS 

OF  1/02  »  All*Fl  ♦  A12*F2  I2A 

0F2/02  «  A? 1*F1  ♦  A27RF2  128 

WHERE  THE  ELEMENTS  OF  THE  MATRIX  A  ARE  INOERENOFNT  «F  2. 

FOR  f.tVEN  SOUND  SPEED  C,  WIND  VELOCITY  COMPONENTS  VX  ANO  VY, 
ANGULAR  FREOUENCV  OMEGA.  ANO  HAVE  NUMBER  COMPONENTS  AKX  ANO  AKY 
THE  AU.JI  A*F  COMPUTED  BY  CALLING  AAAA.  THE  SOLUTION  TO  THE 
DIFFERENTIAL  EQUATIONS  IS  FIXED  BY  SPECIFICATION  OF  El  AND  F2 
AT  7«H. 


PROGRAM  NOTES 


THE  GENERAL  SOLUTION  OF  EONS.  (21  IS 

FI C 2 1  •  CAl<XI*Fl(H)-(H-2l*SAilX>«(Alt*FltHI*A12*F2(HI 
F2(2 I  «  CAItX)*E2(HI-(H-2l*SAI(XI*( A21*F1( H! *A22*F2(H) 

WITH  X»( A11**2»A12*A2 1 t*(H-2 1**2  SINCE  A22*-All.  HE  LET 

PI  *  (INTEGRAL  OF  C  CA II X  l)**2l*(  2/H I 
R2  -(INTEGRAL  OF  <  lH-2l*SAI(xn*P2)*(2/H**1» 

*1  -(INTEGRAL  OF  ( (H-2  l*SAI  ( XI*CAMXI)  »*(4/H**2 » 

WHERE  IN  EACH  CASE  THE  INTEGRATION  IS  OVER  2  FROM  0  TO  H. 
THF  QUANTITIES  R1.R2.R3  ARE  COMPUTEO  BY  CALLING  BBOB. 

THEN 

AINT-IH/2 1*1 FP1 l**2*R 1*(H**3/2I*(FP2I**2*R2 
-(H**2/2I«(EP1»*IFP21*R3 

WITH 

EP1-  AI*F1(HJ*A2*E2(H» 

FP2-  Al*(All*Fl(HI*A12*F2(H»»*A2*(A2l*Fl(H»*A22*F2(HM 

HF  LATTER  TWO  QUANTITIES  REPRESENT  THE  COEFFICIENTS  OF 
CAIIXI  ANO  (H-2  I*SA|  (XI  IN  Al*El*42*E2. 

-  FORTRAN  IV  (360.  REFERENCE  MANUAL  C2B-6515-4I 

-  A.O.PIERCE.  M.I.T.,  JULY, 1968 

- CALLING  SEQUENCE - 


SEE  SUBROUTINE  TOTINT 
NO  DIMENSION  STATEMENTS  REQUIRED 

CALL  El INT( OMEGA, AKX, AX Y.C. VX. VY.H.F IH.F2H.AI . A2. At  NT) 

- EXTERNAL  SUBROUTINES  REQUIRED - 


L  ANGUAGE 


AAAA,  BRBR 


- ARGUMENT  LIST - 


1 

2 
3 
A 
3 
6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
IT 
18 

19 

20 
21 
22 

23 

24 

25 
2* 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66  PROGRAM 

67  El  INT 
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omega 

R*4 

ND 

INP 

EL1N 

68 

r 

AKX 

R«4 

ND 

INP 

ELIN 

69 

PAGE 
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P*4 

ND 

INP 
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R*A  Nn 

INP 

FUN 

T1 

r. 

vx 

R*A  ND 

INP 

EUN 

T2 

c 

vy 

R*A  NO 

INP 

EUN 

T3 

c 

H 

R*A  ND 

INP 

EUN 

TA 

c 

F1H 

4 -A  NO 

INP 

EUN 

75 

r 

F2M 

R-A  NO 

INP 

EUN 

76 

c 

A1 

R*A  NO 

INP 

FUN 

77 

r. 

A  2 

R-A  ND 

INP 

EUN 

78 
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AINT 

B-A  NO 

OUT 

FUN 

74 

c 

EUN 

80 

r 

NO  COMMON 

STORAGE  USED 

FUN 

A1 

C 

FUN 

82 

f. 

- INPUTS- 

.... 

EUN 

83 

f 

FUN 

RA 

c 

OMFGA 

-ANGULAR  FREQUENCY  IN  RADIANS/SEC 

EUN 

85 

c 

AX  X 

-X  COMPONENT 

OF  WAVE  NUMBER  VECTOR 

IN 

KM— I-l! 

EUN 

"6 

r 

AKY 

-V  COMPONENT 

OF  HAVE  NUMBER  VECTOR 

IN 

KM— I-U 

EUN 

87 

r 

C 

•SOUN0  SPEED 

i  IN  KM/SFC 

EUN 

88 

VK  -X  COMPONENT  OP  WIND  VELOCITY  tN  KN/SEC 

VV  -V  COMPONENT  OF  WIND  VELOCITY  IN  KN/SEC 

H  ■INTEGRATION  INTERVAL  ILAYER  THICKNESS!  IN  KM 

P|H  'VALUE  OF  Fill!  AT  UPPEP  LIMIT  OF  INTEGRAL 

F2H  ■VALUE  OF  F2I71  AT  UP»EP  t I M[T  OF  INTEGRAL 

A1  -COEFFICIENT  OF  F1U!  IN  INTEGRAND 

A?  -COEFFICIENT  Of  F2IZI  IN  INTEGRAND 

- OUTPUTS - 

AINT  -INTEGRAL  OVER  HEIGHT  WITH  RANGE  H  OF  THE  QUANTITY 

IAl*FlimA2PF2lZ!>— 2  WHERE  FII2I  AND  F2IZI  ARE 
EQUAL  TO  F1M  AND  F2H,  RESPECTIVELY,  AT  THE  UPPER 
LIMIT  AND  SATISFY  THE  RESIDUAL  DIFFERENTIAL  EQUATIONS 

- PROGRAM  FOllOWS  BELOW - 

SUBROUTINE  EL INT IOMEGA, AKX,AKV,C,VX< VV,H,FIH,F2H,A1,A2,AINTI 
OIMENSION  A ( 2 . 2 1 

CALL  AAAAt ONEGA, AKX.AKY.C.VX.VY.Al 

COMPUTATION  OF  FP1  AND  FP2 
FPI-A1*F1H»A2*F?H 

FP2-AI-IAI1 ,l)-FIH*A( l, 2 1-F2H  J-A2-I A(2,II*F1H»AI2,?I*F2H) 

COMPUTATION  OF  COEFFICIENTS  OF  R1.R2.R3 

51- O. 5-H-FP1— 2 

52- 0.  5-IH— 31-FP?— 2 

53-  0.5-lH— 2I-FP1-FP2 

C  COMPUTATION  OF  Rl.R2.R3 

X«lA|l,llp*?*AU.2)*A(2,lll«H— 2 
CALL  88SBIX.R1.R2,R3I 

COMPUTATION  OP  AINT 

AINT-Sl«Pl*S2«P2*S3*P3 

RETURN 

FNO 
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FNMl 

53 

r 

FOR  THE  VALUES  OF  V,  OMEGA,  ANO  THETK  WHICH  HAVF  BEEN  INPUT. 

FNMl 

54 

C 

FNMl 

55 

f 

FNMl 

56 

c. 

- PROGRAM  FOLLOWS  BELOW - 

FNMl 

57 

r 

FNMl 

58 

r 

FNMl 

59 

FUNCTION  FNMnot(V) 

FNMl 

60 

r 

FNMl 

61 

DIMENSION  CIU00),Vxm00I.VYI  (100)  .HI  ( 100) 

FNMl 

62 

COMMON  tMAX.CI .VXI.VYI, HI, CMEGAC.VPHSEC, THETK 

FNMl 

63 

r. 

FNMl 

64 

r 

QMFGA  ANO  THF**  OBTAINED  FROM  COMMON 

FNMl 

65 

OMFGAxOMEGAC 

FNMl 

66 

PROGRAM 

CALL  NMDFN (OMEGA,V, THFTK, L.FPP.KI 

FNMl 

67 

FNMOOI 

FNMOOI*FPP 

FNMl 

68 

RETURN 

FNMl 

69 

PAGE 

END 

FNMl 

70 

28 

232' 


-ii*  \i.~*r  ■■Ak^Z'^  l'S-A'.  jCfiffcfcL  U'  ,fiW4‘,l 


->  .o  n  n  n  o  n  "»  o  -v  ->  n  rt  n  ^  "» 


-  '***KC"r'***9S&9*t& (J^WS?  ^»> 


^«r^^D^ND*?--T5M»  'SSS 


FNM002  (FUNCTION) 


6/19/68 


- ABSTRACT - 


mif  -  FNM002 

EVALUATATION  OF  NORMAL  MODE  DISPERSION  FUNCTION  AS  FUNCTION  OF 
ANGULAR  FREOUFNCV  OMEGA 

THE  NORMAL  MODE  DISPERSION  FUNCTION  DEPENDS  ON  THREE  VAR  I 
A8LFS.  ANGULAR  FREQUENCY  OMEGA,  PHASE  VELOCITY  V,  AND 
DIRFCTION  PF  PROPAGATION  THETK.  FNMOD2  OBTAINS  OMEGA 
THROUGH  ITS  ARGUMENT, V  AND  THETK  FROM  COMMON.  SUBROUTINE 
NMOFN  IS  THFN  CALLED  TO  EVALUATE  THE  FUNCTION.  (SEE 
PIERCE.  J.COMP. PHYSICS,  FEB. ,1967,  P.363-366  FOR  DEFINI¬ 
TION  OF  NORMAL  MODE  D!S»ERS!ON  FUNCTION. I 

LANGUAGE  -  FORTRAN  IV  (360,  REFERENCE  MANUAL  C28-6515-6) 

AUTHORS  -  A. D. PIERCE  AND  J. POSEY,  M.I.T.,  JUNE, 1968 


- USAGE - 

V  MUST  RE  STORED  IN  WORO  POSITION  603  OF  UNLARELFD  COMMON,  AND 
THFTK  MUST  BE  tN  POSITION  606. 

FNM002  CALLS  SUBROUTINE  NMOFN  WHICH  CALLS  A AAA  AND  RRRR.  RRRR 
CALLS  AAAA  AND  MMNM.  ALL  THFSE  SUBROUTINES  ARE  DESCRIBED  ELSE- 
MHFRE  IN  THIS  SERIFS. 

CALLING  SEQUENCE 

COMMON  CMK602I.V, THETK 

OMEGA  «  KXX 

W  -  XXX 

THFTK  «  XXX 

FUNCTN  •  FNMC02 ( OMEGA) 

INPUTS 

V  PHASE  VELOCITY  (KM/SEO. 

R*6 

OMEGA  ANGULAR  FREQUENCY  (RADIANS/SECI . 

R*6 

THETK  PHASE  VELOC’’Y  DIRECTION  MEASURED  COUNTFR-CLOCKMISE  FROM 

R*6  X-AXIS. 

OUTPUTS 

THE  ONLY  OUTPUT  is  the  VALUE  OF  THE  NORMAL  MODE  OlSPERSION  FUNCTION 
FOR  THE  VALUFS  OF  V.  OMEGA,  AND  THETK  WHICH  HAVE  BEEN  INPUT. 


- PROGRAM  FOLLOWS  BELOW - 


FUNCTION  FNM002I  OMEGA! 
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DIMENSION  Cl  (100).  VXIUOOI.VY  I  (100  l,HI(  100 1 
COMMON  IMAV,CI,VXI,VYI,H| ,OMEG AC .VPHSFC , THETK 
C 

C  V  AND  THETK  OBTAINED  FROM  COMMON 
V  «  VPHSEC 

CALL  NMOFN ( OMEGA .  V  . THFTK ,L ,F PP ,K) 
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V«l.O. 1.25,1. 5. 1.75,2.0 
NVPP«5 

inmooe  win  ee  of  the  form 

inmooe«1.v,v.v»-i.-i,v»y,v,i 

WHERE  THE  V*  S  ARE  NEW  ELEMENTS,  FACH  OF  WHICH  MAV  RE  -l,  1, 
OR  5 

ORIGINAL  MATRIX  F*FANOFO  MATRIX 

♦-  ♦- 

-♦  VV 

TV 

VV 


- PROGRAM  FOLLOWS  RELOW - 


SUBROUTINE  LNGTHNIOMfV, INMOOE » NOM, NV  P» NVRR,Nl , XL, THETK I 
C 

C  VARIABLE  DIMENSIONING 

OINfNSION  0N( t | , VI 1 | , tNMOOE III 
COMMON  IMAX.CI  I  lOOI.VXH  lOOi.VYIIlOOl.HI  (1001 
DELVP  «  IVINlRl I -VIN1 1 1  /  IKL*1 1 
C  DEL PP  IS  THE  INTERVAL  OF  PHAS  VELOCITIES  FOP  THE  ADDED  ROWS. 

NVPP  «  NVP  ->  Kl 

r  NVPP  IS  THE  NFW  NUMBER  OF  ROWS  IN  THE  TOTAL  MATRIX. 

C 

f  N?  IS  NEW  NUMBER  of  CIO  RCW  NO.  IN1MI 
N2  «  N!  ♦  KL  ♦  1 

C 

C  SHIFT  010  VALUFS  OF  VIII  IN  LOWFR  ROWS  TO  t*RL  SP0T9  ONE  HAS  TO 
C  SHIFT  THE  NVP  ELEMENT  FIRST.  NOTE  THAT  I  RANGES  FROM  NVPP  TO  N? 

C  DOWNWARD  WHILE  I-Kl  RANGFS  FROM  NVP  TO  NH1. 

DO  71  IP  «N2,NVPP 
I  »  NVPP  -  IIP-N2I 

71  VIII  «  Vll-Kll 

r. 

C  NFW  VALUES  OF  VP  ARE  INSERTED  INTO  V 
DO  7?  IP-l.XL 
I  -  N1  ♦  IP 

72  VIII  «  VlNl I  ♦  IPAOELVP 

C 

C  BEGINNING  AT  THE  RIGHT  INMOOE  IS  LENGTHENED  COLUMN  BY  COLUMN 
DO  DO  JP*1.N0M 
J  «  NOM  -  (JP-ll 
DO  90  IP«1,NVPP 
I  •  NVPP-  (  IP-1  I 
C 

C  THE  IJ  ELEMENT  IN  THE  INMOOE  VECTOR  IS  THE  J  ELEMENT  IN  THE  I  ROW  OF 
C  THE  NFW  INMOOE  MATRIX 

IJ  «  I  J-l  l*NVPP  ♦  I 

r 

C  IF  I  CORRESPONDS  TO  A  NEW  ROW  INMODEt I J I  MUST  BE  DETERMINED  FROM  NMofN 
if  II.GT.N1.AN0. I.LT.N2I  GO  TO  9 

C 

C  IJOIO  IS  NO.  OF  ELEMENT  IN  OLD  INMOOE  VECTOR  WHICH  IS  TO  BE  MOVEO  INTO 
C  IJ  POSITION  OF  NEW  VECTOR 
IJOLO  *  <J-U«NVR  ♦  I 

C  NOTF  THAT  IOLO  IS  ALWAYS  I  IF  I  ,lT.  N1  BUT  IOLD  IS  I-KL  IF  I  .GE.  N2. 
C  IJOLO  IS  COMPUTED  ON  THE  BASIS  OF  NVP  RATHER  THAN  NVPP  ROWS. 

IF  (I.GE.N2I  IJOLO  «  IJOLO  -  KL 
I NMOOE 1 1 J I  *  INMODEI IJOLOI 
GO  TO  80 
r 

9  CALI  NMOFNIOMIJI , VIII, THETK, L.FPP.KI 

r 

r  if  f pp  fxists  l  *  l  ano  inmodeiiji  •  (fpp/absifppi  i 

INMOOE! I Jl  *  l 
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MMMM  (SUBROUTINE)  7/25/68 

- ARST<>ACT - 

T  f  Tt  ^  -  MMMM 

THIS  SUBROUTINE  COMPUTES  THE  2-0Y-2  TRANSFFR  MATRIX  £M  WHICH 

rONMFCTS  THE  shlutions  of  the  resjoual  eouat ions  at  the  top 

nr  A  IAYFP  Tn  THOSE  AT  THE  BOTTOM  CF  THF  LAYER  BY  THE  RELATIONS 

FHI1 tl ) ♦PH II ( ZB*H) ♦  EH(i.?)*PHI2(ZB*H) 

PHI2<ZB1=  EH(?f  l)*PHli(Z**H)4  EM<2t2>*PHI2imH) 

WHERE  ZB  DENOTES  THE  HEIGHT  OF  THE  BOTTOM  OF  AN  ISOTHERMAL 
LAYER  (THtCKNESS  H)  WITH  CONST AN1  WINDS.  THE  QUANTITIES 
PHIK/I  AND  PHI  21 Z )  SATISFY  THE  RESIDUAL  EOUATIONS. 

0(PHll)/0/  *  AU«ll*PN!t(M  ♦  A(l*2**PHI2(Z) 

0(PH!?)/DZ  =  A(2.n*°HtI(2)  ♦  A(2*2)*PHI2(Z ) 

WHERE  THE  A (  I » J )  ARE  CONSTANT  OVER  THE  LAYER  AND  WHERE 
A  f  2*  21 A 1 1 • 1  /  •  ON  THIS  BASIS*  ONE  CAN  SHOW  THAT 

FMf I • J  I  *C  AM  X 1*KOELT  A( f , J ) -H*S AT I X l*A( l * J ) 

where 

X  «t  A(l*l)**?*A(U2)*At2,U  >•«•*? 

AND  WHERE  KDFLTAI  I* J 1  IS  THE  KRONEfXER  DELTA  (1  IF  tNOICES 
EQUAL*  0  OTHERWISE).  THE  FUNCTIONS  fAI  ANO  SAI  ARE  OEFINEO  IN 
THE  DESCRIPTIONS  OF  THF  COR RFSPONO I NG  FUNCTION  SUBPROGRAMS. 
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MMMM 

98 

00  100  1*1,2 

MMMM 

99 

1QO 

€M(I,n*EM|l.|»*CA 

MMMM 

100 

c 

MMMM 

101 

RETURN 

MMMM 

102 
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MMMM 

103 
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f  NOOETR  (SUBROUTINE)  6/25/68  MDTR  l 

C  MOTR  2 

C  MDTR  3 

E.  - ABSTRACT -  MOTR  A 

r  mdtr  5 

r  TITLE  -  NOOETR  MQTR  6 

r  PROGRAM  to  TABULATE  A  TABLE  OP  PHASE  VELOCITY  VERSUS  FREQUENCY  NOTR  7 

r  FOR  A  GIVEN  GUIOEO  MOOE.  The  NORMAL  NODE  OtSPERSION  FUNCTION  NOTR  8 

r  is  zero  for  each  listing  of  the  TABLE,  the  COMPUTATIONAL  MDTR  9 

r  METHOD  IS  BASED  ON  THE  PREVIOUSLY  COMPUTED  VALUES  OF  THF  NMOF  MOTR  ID 

r  SIGN  INMOOEU  J-l)*NROW4l )  AT  POINTS  U.J)  IN  A  RECTANGULAR  MDTR  U 

r  ARRAY  OF  NROM  ROWS  ANO  NCOl  COLUMNS.  DIFFERENT  COLUMNS  f  J )  MDTR  12 

C  CORRESPOND  TO  DIFFERENT  FREQUENCIES  WHILE  DIFFERENT  ROWS  (I)  MDTR  13 

C  CORRFSPONO  TO  DIFFERENT  PHASE  VELOCITIES.  OISPERSION  CURVES  MOTR  IA 

C  OF  VARIOUS  MOCES  APPEAR  ON  THIS  ARRAY  AS  LINES  0*  DEMARCATION  WpTR  15 

C  BETWEEN  ADJACENT  REGIONS  WITH  DIFFERENT  INMOOES.  TWO  ADJACENT  MDTR  16 

C  POINTS  WITH  INMODES  OF  OPPOSITE  SIGN  BRACKET  A  POINT  ON  THE  MOTR  IT 

F  ACTUAL  OISPERSION  CURVF.  IF  THE  POINTS  CORRESPOND  TO  THE  SAME  MDTR  18 

F  FREQUENCY.  THEM  THF  PHASE  VELOCITY  CORRESPONDING  TO  THAT  OMf GA  MDTR  19 

C  ON  THE  OISPERSION  CURVE  IS  FOUND  BY  CALLING  RTP  t •  A  3bO  PACKAGE  MDTR  20 

r  ROUTINE  FOR  SOLVING  NONLINEAR  EQUATIONS,  AND  CONSIDERING  THE  MDTR  21 

C  NHDF  AS  a  FUNCTION  OF  VPHSE  WITH  OMEGA  FtXEO.  SIMILARLY,  IT  MOTR  22 

C  THE  POINTS  CORRESPOND  TO  THE  SAME  PHASE  VELOCITY,  THE  APPROPRIA  MDTR  23 

r  OMEGA  CORRESPONDING  TO  THIS  PHASE  VELOCITY  IS  FOUND  BY  CALLING  MOTR  24 

C  RTMI  WITH  THF  NMfjF  CONSIDERED  AS  A  FUNCTION  OF  OMEGA  WITH  MDTR  25 

C  VPHSE  FIXED.  MOTR  26 

C  MDTR  27 

C  THF  PROGRAM  SUCCESSIVFLY  CONSIDERS  EACH  PAIR  OF  ADJACENT  POINTS  MDTR  28 

C  WITH  OPPOSITE  INMOOES  BRACKETING  A  LINE  OF  DEMARCATION  ANO  MOTR  29 

C  PROCEEDS  IN  THE  DIRECTION  OF  INCREASING  FREQUENCY  UNDER  THF  MDTR  30 

C  ASSUMPTION  THAT  THE  PHASE  VELOCITY  CURVE  SLOPES  DOWNWARDS,  MOTR  31 

r  MDTR  32 

C  PROGRAM  NOTES  MOTR  33 

C  MDTR  34 

C  THF  MODES  APE  NUMBERED.  THE  INPUT  INTEGER  NMOOE  DESIGNAT  MDTR  35 

f  WHICH  MOOE  IS  BEING  TABULATED.  THE  PAIRS  OF  FREQUENCY  MDTR  36 

C  ANO  PHASE  VELOCITY  VALUES  ARE  STORED  AS  OMMODIKST (NMOOE )l  MOTR  37 

r  OMMOO(KST  (NMODE  1*1 1  .OMMODIKST (NMOOE )  ♦  . .  MDTR  38 

C  OMMOO(KFIN( NMOOE) ) «VPMOD(KST ( NMCDE I ),VPMOD(KST(NMODE)*l),  MDTR  39 

r  . VPMOO(KF I N( NMOOE ) )•  THE  ARRAYS  OMMOD  AND  VPMOO  MOTR  40 

C  ARE  USEO  TO  STORE  DISPERSION  CURVES  FOR  ALL  MODES.  MOTR  41 

f  MDTR  42 

C.  KST(NMOOE)  is  tNPUT  WHILE  KF  ININMODE  I  IS  DETERMINED  DURIN  MDTR  43 

C  THE  COMPUTATION.  THF  TOTAL  NUMBER  OF  POINTS  EXTRACTABLE  MDTR  44 

C  FROM  THF  ARRAY  OF  INMOOE  VALUFS  DETERMINES  KFIN-KSTM.  MOTR  45 

C.  IF  A  SINGLE  POINT  CANNOT  BE  CALCULATFD,  THE  PROGRAM  MOTR  46 

r  RETURNS  KRU0«-1.  OTHERWISF  IT  RETURNS  KRUO'l .  MDTR  47 

C  MDTR  48 

r  1  SUBROUTINE  RTMI  FOR  SOLVING  A  NONLINEAR  EQUATION  MDTR  49 

C  IS  ALLOWFO  A  MAXIMUM  OF  TEN  ITERATIONS  TO  FIND  THE  MDTR  50 

C  PHASE  VELOCITY  TO  ACCURACY  0*  1.6-5  XM/SEC  OR  THE  MDTR  51 

r  FREQUENCY  TO  FOUR  SIGNIFICANT  FIGURES.  IE  THE  SEARCH  IS  MOTR  52 

C  UNSUCCESSFUL  A  MESSAGE  IS  PRINTED  AND  THE  POINT  IS  MDTR  53 

C  SKIPPED  OVER.  MOTR  54 

r  MOTR  55 

C  THE  INPUT  PARAMETERS  IST.JST  ARE  COORDINATES  CF  A  POINT  I  MDTR  56 

C  THF  TNMQOE  ARRAY.  THIS  POINT  SHOULD  BE  THAT  POINT  FURTHE  MOTR  57 

C  TO  THE  UPPFR  LEFT  OF  THOSE  POINTS  LYING  BFLOV  THE  LINE  OF  MOTR  SB 

C  DEMARCATION  FOR  THE  MOOE  CONSIDERED,  PROVIDING  THAI  POINT  MOTR  59 

C  DOES  NOT  HAVE  INMOOE. 5.  MDTR  60 

C  MDTR  6) 

C  LANGUAGE  -  FORTRAN  IV  (360,  REFERENCE  MANUAL  C28-6515-4)  MC  TR  62 

C  AUTHOR  -  A. 0. PIERCE.  M.I.T..  JUNE, '.966  M'.TR  65 

C  *Ctr  6* 

C  - CALLING  SEQUENCE -  '»OlR  65 

C  MDTR  66  PROGRAM 

C  SEF  SUBROUTINE  ALLMOO  MDTR  67  MCDFTR 

C.  DIMENSION  KST(l)  .KFINIll  ,OMMOO(  1 1  .VPMOO  1 1 )  » INMOOE  (ll.OM(l).VP(l)  MOTR  68 

C  (SUBROUTINE  USFS  VARIABIE  DIMENSIONING!  MOTR  6«  PAGE 

C  C4U  MODFTRI (ST, JST.NMODF.KST.KFIN.OMMCD.VPMOD.NROw.NCOl  , INMOOE ,  MDTR  70  35 
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V 


r 

1  O«.VP,<O!)0t 

MOTR 

7] 

r 

(F(  KRIlO 

.FO.  i  )  C.o  SOMEWHERE 

MOTR 

7? 

r 

MOTP 

73 

r 

- External  surroi, tines  reouirfo - 

“OTR 

74 

r 

MOTR 

75 

( 

NXTPNT,  PTMt,  FNM001,  FN“OP2,  NMOEN.  AAAA,  PPRB,  MMMM  ,  C  A  ! ,  S  A  ! 

MQTP 

76 

C 

(FNMQOt 

ANO  FNMOOF  CAU  N«0FN.  WHICH  IN  TURN  CALL'  AAAA  AND  RRRR 

MOTR 

77 

r 

9RRR  CAUS  AAAA  AMO  mmm».  OESCPIPT'CNS  OF  THESE  PROGRAMS  APT 

MOTR 

78 

r 

GIVEN 

FL  SFWMFRF  IT*  THIS  sf=  IES.  I 

MOTR 

79 

r 

MOTR 

RC 

r 

RT«i  IS  A 

subroutine  rooEo  py  ip*<  to  determine  a  root  or  a  general 

MOTR 

«1 

r 

NONE I  NEAR 

equation  CIXIt-i  RY  MEANS  OF  "IIEtlEs-S  ITERATION  SChFmF 

MOTR 

92 

r 

"F  SUCCESS  I VF  BISECTION  AMO  INVERSE  PARABOLIC.  INTERPOLATION.  A 

MQTR 

87 

r 

COMPi  ftp 

DESCRIPTION  ANO  DECK  LISTING  IS  GIVEN  ON  PACES  I9R-199  0E 

MOTR 

R4 

c 

DOCUMENT 

H30-020S-2,  SYSTFM/360  SCIENTIFIC  SUBROUTINE  PACKAGE 

MOTR 

R5 

r 

(  360A-CM- 

OOX)  VERSION  II.  PROG»AMMfR-S  MANUAL,  I  P*> ,  TECHNICAL 

MOTR 

86 

c 

P'»RI  K  AT  MNS  OFPARTmfht,  H2  PAST  PPST  R0*0«  WHl  TP  PJA!NC,  N*  Y  • 

MOTR 

R7 

r 

PU»»IS«50  I9*>f,  1967, 

MDTR 

RR 

r 

MOTR 

»9 

r 

- AR0umFNT  LIFT - 

MOTR 

90 

r 

MOTR 

91 

f 

1ST 

1*4  NO  INP 

MOTR 

92 

r 

J  ST 

I«-4  NO  INP 

MDTR 

9? 

r 

NMHOE 

I "4  NO  INP 

MOTR 

94 

r 

<ST 

1*4  VAR  INP  (ONLY  XST(NMODF)  NEEDED) 

MOTR 

95 

r 

KF|N 

*•4  VAR  OUT  (ONLY  KEIN(NMCOF)  COMPUTED) 

MOTR 

96 

f 

OMMnoiN) 

R«4  VAR  OUT  (COMPUTED  FOB  N  .GF.  «ST(NmOdE)( 

MOTR 

97 

r 

VPMpnfNj 

R«4  vAfi  OUT  (COMPIJTFO  FOR  N  ,C,F.  KST(NmOOEI) 

MOTR 

98 

r 

NPHW 

1*4  NO  INP 

MOTR 

99 

r 

*KP  l 

t  *4  NO  INP 

MOTR 

100 

r 

IP4MPOP 

1*4  VAR  INP 

MDTR 

101 

r 

OH 

R  *4  VAP  INP 

MDTR 

102 

r 

VP 

R*4  VAR  INP 

MOTR 

10? 

r 

KQUO 

1*4  NO  OUT 

MOTR 

104 

r 

MDTR 

105 

c 

roMMpN  9T^RAriF  *!SCP 

MOTR 

106 

r 

C\+*t\H  IMX.CUVXI.VYi  *H!  ,OMEGj»C,VPHSRC 

MDTR 

107 

r 

MOTR 

108 

r 

|MAV 

1*4  NO  INP 

MDTR 

109 

c 

r  i 

0*4  100  INP 

**dtr 

no 

r 

VXI 

R«4  ion  INP 

MOTR 

111 

r 

VYI 

R  *4  100  INP 

MOTR 

112 

r 

MI 

o«4  100  INP 

MOTR 

113 

c 

OMEGAC 

R*4  NO  OUT  (USFO  INTERNALLY) 

MOTR 

114 

f 

VPHSFC 

0*4  NO  OUT  (USED  INTFRNALLY) 

MOTR 

115 

r 

TMFTK 

R*4  NO  INP 

MOTR 

116 

r 

MDTR 

117 

r 

- INPUTS - 

MOTP 

UB 

r 

MDTR 

119 

r 

1ST 

•Rov  index  of  start  point,  which  must  lie  below  line 

MOTR 

120 

f 

OF  DEMARCATION 

MDTR 

121 

r 

JST 

•column  Index  of  start  point 

MOTR 

122 

r 

MxnnE 

•NUMBER  LABELLING  MOOE  TO  BE  TABULATED 

MDTR 

123 

r 

KSTINMOOE)  *TNOEX  OF  OMMOO  ANO  VPMOO  CORRFSPPNOING  TO  FIRST 

MOTR 

124 

r 

point  taruiatfo. 

MOTR 

125 

r 

NR'lw 

•NUMBER  OF  ROWS  IN  INMOOE  ARRAY 

MOTS 

126 

r 

NC.OL 

•NUMBER  OF  COLUMNS  IN  INMOOE  ARRAY 

MOTR 

127 

f 

IN«OOF 

•  ARRAY  MHOS F  ( J- 1 1 *NROW ♦ I -TM  ELEMENT  IS  THE  SIGN  OF 

MOTR 

12B 

r 

THE  NORMAL  MODE  DISPERSION  FUNCTION  WHEN  OMEGA*OM(J). 

MOTR 

129 

f 

VPhSf»V°(  I ). 

MOTR 

no 

r 

OM 

•VECTOR  OF  FREQUENCIES  AT  WHICH  INMOOE  IS  TABULATED. 

MDTR 

ni 

r 

VP 

•VECTOR  OF  PHASE  VELOCITIES  AT  WHICH  INMOOE  IS 

MOTR 

13? 

r 

TARUt  ATEO. 

MOTR 

133 

r 

[MAX 

•NUMBER  OF  ATMOSPHERIC  LAYERS  OF  FINITE  THICKNESS. 

MOTR 

134 

f 

CIt  II 

•SOUND  SPfFO  IN  I-Th  LAYER  IN  KM/SEC. 

MOTR 

175 

r 

VXI  (I) 

•X  CCMPONENT  OF  WIND  VELOCITY  IN  I-TH  LAYER  IN  KM/SEC 

MOTR 

136 

r 

VYI ( I  1 

>Y  COMPONENT  OF  WIND  VELOCITY  *N  I-TH  LAYER  IN  KM/SEC 

MOTR 

137 

r 

MI  (  I  I 

'■THICKNESS  IN  KM  OF  I-TH  LAYER 

MOTR 

1  38 

r 

TMFTK 

•PHASF  VELOCITY  DIRECT ICN  IN  RADIANS  W.R.T.  X  AXIS 

MOTR 

139 

f 

MOTP 

140 

PROGRAM 

NOOFTR 
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c. 

r 

c 

r 

C 

r 

c 

c 

r 

r 

c 

c 

c 

r 

c 

r 

r 

f 

f 

r 

r 

f 

r 

r 

r 

r 

r 

r 

r 

f 

r 

f 

f 

r 

r 

r 

r 

r 

c 

r 

r 

r 

r 

r 

C 

r 


C 


- OUTPUTS - 


K  F  INI NMODFI  =  INDEX  OF  OHMOD  AND  VPMOD  CORRESPONDING  Tn  l  4  ST 
POINT  TABULATFn. 

OMNDOINI  *ANGUIAR  FREQUENCY  OF  POINTS  ON  DtSPFBSION  CURVE. 

nsmstinmodfi  up  to  xfininhodei  corresponds  to  nmodf- 

inDE. 

VP«O0(NI  spHASF  VFIOC1TY  Dp  POINTS  ON  DISPERSION  CURVE. 

N*KST(NMODE)  IIP  TO  KFININMODF)  CORRESPONDS  TO  NwOOF - 

none. 

KRIIO  *FI  AC,  INDICATING  IF  ANY  POINTS  ON  OISPFRIJN  CURVE 

HAVE  BEEN  FOUND.  1  IF  YES,  -1  IF  NO. 

OMFOAC  *  I NTf RNAlt  Y  USED  FREOUENCY  f  «NS» I T T FD  AW^NG  SUB¬ 

ROUTINES  THROUGH  COMMON 

VPHSEC  *  INTERNALl  V  USED  PHASE  VELOCITY  TRAnSHITTF-i  among 

SUBROUT  INFS  THROUGH  COMNCN. 

- EXAMPI  F - 

SUPPOSE  THE  TABLE  OF  INNODE  VALUES  IS  AS  SHO.*  BELOW  WITH 


**************  NROW=7,  NC0L*14 
************** 

—  —  ~* **********  0M*.1««2,.3.«4..5».6,.7,.8,.9,1.0,  1  ,  1  •  1 , 2 . 

],4 


«  * - 

♦  ♦ -  VP*. 8, .45. .40, .35. .30.. 25, .20 


NMOOE*?.  1ST  =  ■».  JST* 1 ,  KST(LI*T 


3. 


TMFN  "NF  MIGHT  F 

oR«nnm*.i 

riRMODI  a 
OMROn(D)..S 
ONHODC 101**33 
OHMonui  i-.SA 
OMR0D(t2l*.40 
OMMODI l '  1  *• 50 
ORROD I  l  4  )  **  60 
OMMODI 1  6  I s , 70 


NO  KRU0=1,  KF  IN 

VOMOOIT|».4T 
VPMOOIR )*«42 
VPMomq)*.4i 
VPMOOI 10  I  * , 4 
VPR00U1I-.3S 
VORQOI l?l*.14 
VPMOOI 131*. 3* 
VPMOOI 141*. »2 
VRRonilSls.31 


21*21,  ANO 

OMMODI !&)*. 15 
0MMC0I1T)*.B 
OMMODI18)«.q 
OMMODI 19)*1.0 

ommodi20)*i.i 

OMMODI 21 1 *1.2 
OMROOI 22 ) *1.3 

OMMD0I23W.4 


VPMOD I  1 6  I «. 1 
VPMD0117I..29 
VPMOD 1 1  8  I  *•  285 
VPHODU9I..2B 
VPMOD 120 1*. 27 
VPM0DI21 )*.2N5 
VPMOD 1 22 1 *. 26 
vPMnni23)..2SS 


- PROGRAM  FOUOWS  BELOW - 


SUBROUTINE  MODETRI 1ST, JST,NMODF,NST,AFIN,0“MOD.VPROr.NBOw,NrOL . 

1  ISM  -'C,OM,vP.K»Uni 

DIMENSION  FI  11001.  VXII100I.VY  II  100I.H  1 1 1001 

01  MENS  ION'  KSTI  1 1  ,KE  INI  1  1.  OMMODI  1 !  .VPMOOI  1 1  ,  INMODE  1 1  1  .DM|  1  I  •  VP(  1  I 
COMMON  IMAX.CI.VXI.VYI .HI.CMFGAC.VPHSEC.TM?'* 


C  FUNCTIONS  FN“n01  ANO  FNM0D2  ARE  USEO  AS  ARGUMENTS  OF  RT“I 
FXTFRNAl  FNRODl . FNROO? 

C 

r  INDFX  OF  FIRST  point  on  OISPFRSICN  CURVI  IS  LABELLED  AS  x 
K*KST<  NRODE 1 
C 

I  0*1 NRODE (, JS 7-1  I *NBOW ♦ 1ST  I 
r 

r  wr  ClirCK  TD  SEC  IF  PCINT  ABOVE  IIST.JSTI  HAS  A  D I  F  Ff  BF  NT  I  NROftF 
2  ir  ( JST  .'O,  II  r,r  TO  * 

I  UP*  TNROOEI ( JST- 11 *NPOW* I  ST- 1  I 
IF  |  II|P  .FO.  -101  C,o  TO  10 

r 

c  if  it  nnrsNT,  we  check  the  point  on  the  right,  wr  can  aiso  arrive  at 
r  8  FROM  2  IF  I S  T  *  1 . 

B  |F( JST  ,F0.  NCDt )  GO  TO  R 
IS  ID, INMO0C II JST  | *NROW ♦ 1 c  T  ) 


*dtr 

hi 

mot© 

1**2 

*nr« 

143 

MO  TP 

144 

motp 

145 

MOTR 

144 

motp 

147 

MOTP 

148 

MOT® 

144 

MOTR 

150 

MOTR 

151 

MOT® 

152 

MOT© 

153 

MOTP 

1  44 

motr 

155 

N0YP 

156 

MOTR 

157 

motr 

158 

MOT0 

154 

MQTR 

160 

MO  TP 

161 

«OTP 

162 

MOTR 

163 

*OTP 

164 

MOT* 

145 

MOTR 

166 

MOTR 

1  67 

MOTR 

168 

MOT? 

169 

MO,R 

170 

M'jTR 

171 

MOTR 

172 

MOTP 

173 

MOTR 

174 

MOTP 

175 

MOTR 

176 

M0TP 

177 

MOTR 

178 

MOTR 

179 

MOTR 

180 

MQTR 

lfll 

MOTR 

1  52 

MOT° 

183 

MOTR 

184 

MOTR 

185 

MOTR 

186 

MOTR 

187 

MfJTP 

188 

MOTR 

189 

mqtr 

lop 

MOTR 

1Q1 

«OTR 

192 

MOTR 

1°3 

MOTR 

104 

MOTR 

105 

MOTR 

196 

MOTR 

197 

MOTR 

198 

MOTR 

199 

MOTR 

200 

motp 

201 

MOTR 

202 

MOTR 

203 

MOTR 

204 

MOTR 

205 

MOTR 

206 

PROGRAM 

MOTR 

207 

MCQETR 

MOTR 

208 

MOTP 

209 

PAGE 

MpTR 

210 

3T 
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* 


|F( ISin  .FO.  -'01  GO  TP  IS 

MQTR 

711 

r 

MOTR 

712 

r 

IF  ME  ABRIVF  AT  A,  WF  CANNOT  FINO  A  POINT  EITHEP  A90VF  OF  TO  THF  BIGHT 

MOTP 

211 

e 

OF  HST.JST1  which  HAS  A  INNOOE  GF  OPPOSITE  SIGN. 

MOTR 

714 

A  KRIW«-1 

MOTP 

71  S 

BFTIIRN 

MOTR 

216 

r 

MOTR 

217 

r 

WF  ASSIGN  A  TVPF  INDEX  TO  THE  POINT  ItST.JST).  SFF  DESCRIPTION  OF 

MOTP 

21  * 

r 

NKTPNT  FOB  OFF INIT I ON  OF  TVPF  INDEX. 

MOTR 

719 

r 

MOTR 

220 

10  !TVPl«l 

MOTR 

271 

r 

ilPPOSITF  SIGN  ABOVE 

MOTR 

222 

GO  TO  70 

MOTR 

223 

r. 

MOTR 

224 

IS  ITYPW 

mdtr 

225 

r 

OP BOS I TF  SIGN  TO  RIGHT 

MOTR 

226 

c 

MDTR 

>27 

r 

WE  NOW  CAN  IOFNTIFV  PUP  FIRST  BRACKETING 

MOTR 

228 

70  I I »I ST 

MOTR 

229 

Jl*JST 

«OTR 

230 

r. 

MDTR 

231 

r 

STATEMENT  75  IS  START  OF  LOOP  TERMINATING  AT  JO..  fac.H  PASSAGE  THROUG 

MOTR 

232 

r 

LOOP  GENF°  ATFS  A  NFW  POINT  ON  The  DISPERSION  CUPVF. 

MOTR 

233 

75  IFIITYPI  • FO.  7)  GO  TO  SO 

MOTR 

234 

r 

MOTR 

235 

r 

CAICtllATION  IF  I TYP  l  *t .  STORE  FREQUENCY  IN  COMMON.  FIND  PHASE  VFIP- 

MDTR 

236 

r 

CITY  WITHIN  BRACKFTEC  intepval. 

MDTR 

237 

OMFGAC«OM| J1 | 

mdtr 

239 

vnowN*vp|iit 

MDTR 

239 

vup«vp<  u-n 

motR 

240 

EPS.l.E-4 

mDtr 

241 

CAl 1  RTMIIVA. F.FNM001.Vn0WN.VUP.EPS. 4, IF») 

MDTR 

242 

OMK0O(K)»O»EGAC 

MDTR 

243 

VPMPOIKI-VS 

MDTR 

244 

GO  TO  100 

MDTR 

245 

r. 

MDTR 

246 

r 

CAirutATION  IF  ITYP1*?,  STORE  PHASE  VELOCITY  IN  COMMON.  FIND  FREQUEN 

mdtr 

247 

r 

IN  BRACKETED  INTFPVAt. 

MDTR 

248 

SC  VPHSFC*VP(I1  1 

MDTR 

249 

OMLFF.CMI J 1 I 

MDTR 

250 

OMRIT»OMI Jl*l) 

MDTR 

251 

EPS*(1.E-*I«0MPIT 

MOTR 

252 

CALL  RTMIIOMA.F, FNM002 , OMt FF.OMR 1 T . EPS. 4. IER 1 

MDTR 

253 

0MMO0IKI*0M* 

MDTR 

254 

yPNOOIK!«VPHSEC 

MOTR 

255 

c 

MDTR 

256 

100  CONTINUE 

MOTR 

257 

c 

WF  HAVE  NOW  FOUNO  THE  K-TH  POINT.  WF  00  NOT  VET  KNOW  IF  THIS  IS  THE 

MOTR 

258 

r 

FINAL  POINT  fop  THF  NMOOE-TH  HOOF.  HOWEVER,  WE  SET  KF ININMODE l»K 

MOTR 

259 

K F  I  NM3PEt«K 

MOTR 

260 

r 

WHEN  THF  SUBROUTINE  RETURNS.  THE  CURRENT  STORED  KFININMODEI  WILL  BE 

MOTR 

261 

r 

THE  CORRECT  ONE. 

MDTR 

262 

c 

MOTR 

263 

r 

WF  NOW  FRFPARE  THE  SEARCH  FOR  THE  NEXT  POINT. 

MOTR 

264 

K  »K  ♦  l 

MDTR 

265 

1  vp  CAl l  NXTPNTI II, Jl.ITYPl, 12. J2. ITVP2.NR0W.NC0L , INMODE. KUDOS) 

MOTR 

266 

1  BO  1 F |  KUDOS  .FO.  -ll  GO  TO  200 

MDTR 

267 

!l»I? 

MDTR 

268 

Jl  *  J2 

MDTR 

269 

I TYP1.I TVP? 

MDTR 

270 

190  GO  TO  75 

MOTR 

271 

f 

MOTR 

272 

700  CONTINUE 

MDTR 

273 

C 

WF  CONTINUF  HFRF  AFTE«  AN  UNSUCCESSFUL  ATTEMPT  TO  FINO  THE  NEXT  POINT. 

MDTR 

274 

r 

PROVIDING  WF  HAVE  FOUNO  AT  LEAST  ONE  POINT,  WE  CAN  EXIT  WITH  KRUD«1. 

MDTR 

275 

1 F  (  X  .IF,  KSTfNWOoFI  1  GO  TO  9 

MDTR 

276 

PROGRAM 

KR1I0*  1 

MDTR 

277 

MODETR 

rftupn 

MOTR 

278 

r 

MDTR 

270 

PAGE 

FNO 

mdtr 

280 
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MDDLST  (SUBROUTINE!  6/19/68 


- abstract - 


TITLE  -  MODLST 

TABULATION  Ilf  SELECTED  POINTS  ON  THE  PHASE  VELOCITY  (VI  HSU  VS. 
ANGULAR  FRFOUENCV  (OMEGA)  CURVES  nF  StlECTHi  NODES 

NO  f  IMPUTATION  OR  CHANGING  rF  UNITS  IS  PCPE'iRMH  Py  SUB¬ 
ROUTINE  MOOLST,  IT  MERfcLY  PRINTS  OUT  lor  INPUT  IN  LABE  t  El) 
AND  ORUEREO  FASHION. 

LANGUAGE  -  FORTRAN  IV  (360,  REFERENCE  MANUAL  I  5-4  ) 

AUTHCRS  -  A. 0. PIERCE  AND  J .POSEY,  m.I.T..  JUNE.'SbM 


- USAGE - 

NO  SUBROUTINES  ARE  CALLED. 

KEIN,  OMMOO,  VRMOO,  KST  MILL  ASSU^F  IMF  DIMENSIONS  SPLCIHl'3  IN 
THF  CALLING  PROGRAM.  (DIMENSION  "f  KS»  AND  KF I N  MUSI  B[  .Gt.  NMFM 

FORTRAN  OSACE 

CALL  MODLST  ( MOf NO , OMMOO , VPMOD ,KS  T  ,  KF  I  M 
INPUTS 

MUFNO  NUMBER  OF  MOOES  TO  RE  PRINTED  OUT. 

1*4 

CMROD  VFCT1R  STORING  ANGULAR  FREQUENCY  COORDINATE  OF  POINTS  ON 

°*4<U)  OISPCOSION  CURVES.  MODE  «  IS  STORED  FROM  ELF“ENT  KST  I M I 
THRruGH  ELEMENT  KFIN(M).  (  RAD/SEC  ) 

VPMUO  VECTOR  STORING  PHASE  VELOCITY  COORDINATE  OF  POINTS  ON 
R"MO)  3ISPFRSI0N  CURVES.  MODE  M  IS  STORED  FRCM  ELEMENT  KST  CM) 
TMRCUGH  ELEMENT  KEIN(M).  |  KM/SEC  I 

KST  SEE  OMMOO  AND  VPMOD  ABOVE. 

1*4101 

KFIN  SEE  OMMOD  AND  VPMOD  ABOVE. 

1*4(0) 

'T  PUT  S 

THF  OUTPUT  IS  AN  OROEREU  A.Nl)  LABELED  PRINT  CUT  OF  THE  INPUTS,  FX- 
CLUDING  KST  AND  KFIN.  (  SEE  EXAMPLE  REICH.  ) 


- EXAMPL  E - 

CALL  ING  PR  rcRA“ 

DIMENSION  KST  I  2)  ,KF  INI  2  ),  OMMOD!  S I  .VPMOIMS) 

MCFNp  =  ? 

KST  .  1  ,3 
KFIN  *  2 ,  5 

OMMOD  =  0.  1  ,0.2,0. 1 ,0. IS, 0,2 

VPMOD  *  1.0,2.C,2.0,2.S,3.0 

CALL  MOCLST  I MOFNO, OMMOO, VPMOO , KST , Kf IN  I 

PR  INI  OUT 

TABULATION  Df  FIRST  2  MODES 


MDl  t 

! 

MOLT 

? 

“DIT 

i 

MOLT 

i* 

MDL  T 

*> 

MOI  T 

* 

MOLT 

7 

MDL  T 

H 

MOLT 

o 

MOLT 

10 

MOL  T 

1 1 

MDl  T 

12 

BOLT 

P 

MOLT 

14 

MOLT 

P 

MDl  T 

16 

»OLt 

17 

“OLT 

1  « 

MOLT 

11 

MOLT 

?C 

MOLT 

2! 

MOLT 

22 

MDLT 

23 

MDL  T 

24 

“OLT 

25 

MOLT 

26 

«CLT 

27 

MDL  T 

28 

MOLT 

29 

MOLT 

30 

MDLT 

31 

MDLT 

32 

MDLT 

33 

MDLT 

34 

MDLT 

35 

MDLT 

36 

MDLT 

37 

MDLT 

35 

MDLT 

39 

MDLT 

40 

MDLT 

41 

«DLT 

42 

MOLT 

43 

MDLT 

44 

MDLT 

45 

MDLT 

46 

MDLT 

47 

MDLT 

4R 

MOLT 

49 

MDLT 

50 

MDL  T 

51 

MOLT 

52 

MOLT 

53 

MOLT 

54 

MDLT 

55 

MGL  T 

56 

MDLT 

57 

MDLT 

5H 

MDLT 

50 

MDL  1 

60 

“OLT 

61 

MDLT 

6? 

MOLT 

63 

“OLT 

64 

MDLT 

65 

MDLT 

64 

MDl  T 

67 

MOLT 

6  B 

MOL  T 

6R 

MDl  T 

K 

PROGRAM 
m  JOL  ST 

PAF.F 

30 


2A3 
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POt  I 

71 

MOLT 

72 

WDLT 

?■> 

MODE  1 

molt 

74 

WOt  T 

75 

MOLT 

?f 

CME9A  (KAO/SEC) 

VPHSE  (KM/SEC) 

WOL  T 

77 

MOLT 

7ft 

0.100000 

1.000000 

MOLT 

70 

0.200000 

2.000000 

MDL  T 

HO 

WUI  T 

f  1 

MDL  T 

ft? 

WOL  T 

ft? 

MOOE  ? 

"Ul  T 

ft4 

MOLT 

ft  5 

*L'I  T 

BE 

OMEGA  IRAD/SEC) 

VPHSE  (KM/SEC) 

MOLT 

F  7 

►DLT 

«« 

0.100000 

2.000000 

MOLT 

PO 

0. 150000 

2.500000 

"DLT 

or 

0.200000 

3.000000 

"DLT 

PI 

"Dl  T 

P2 

WDLT 

93 

END 

OF  EXAMPLE 

molt 

94 

MOLT 

95 

WDLT 

96 

- PROGRAM  FOLLOWS  Rf LOW - 

molt 

«7 

mdlt 

9B 

WDLT 

99 

SUBROUTINE  mcjlstimdfno.ommoo.vpmoo.kst ,kf ini 

"DLT 

100 

MDLT 

101 

VARl  ABLE  DIMENSIONING 

MDLT 

102 

DIMENSION  KFINI1I,  OMMOD(l), 

vpmoo(1),xst(!> 

MDLT 

103 

WRITE!  6,11)  M.1FN0 

WDLT 

104 

11 

FORMAT  <  1H1  ,25X,1-)HTABULAT10N 

OF  FIRST,  16, 6H  MODES) 

MDLT 

105 

DO  100  1 1 «1 ,MOFND 

MOLT 

106 

WRITE  (6,21)  II 

MDLT 

107 

21 

FORMATUM  / //,  1 H  ,35X,  5MM00F  ,13//,  1H  ,  12X,  15H0MFGA  (RAD/SEC), 

MDLT 

108 

1  10X»1  4HVPHSE  (KM/SEC)  /) 

MOLT 

109 

Kl-KSTIIll 

MOLT 

110 

K?  .KFIMII) 

"DLT 

111 

00  100  J.R1.K2 

MDLT 

112 

OMEGA -CMMOD  (J  ) 

WDLT 

113 

VPHSE*VPMOD< Jl 

MDLT 

114 

31 

FORMAT  (1H  ,12X,F15.6,10X,F14.6I 

mdlt 

115 

WRITE  16,31  )  OMEGA, VPHSE 

MOLT 

116 

IOC 

CONTINUE 

MDLT 

117 

RETURN 

MOLT 

118 

END 

MOLT 

119 

program 

modlst 

PAGE 
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C  MPtlur  (SUBROUT  IMF  I  T/ 19/68 

C 

c 

f  - ARSTRACT - 

C 

C  TITLE  -  MPOUT 

r.  T  ABUt  AT  1  ON  OF  NORMAL  MODE  OJSPERSION  FUNCTI3N  SIGN  AT  PHIlS 

f  IN  A  RFC  f  ANGULAR  REGION  OF  FREQUENCY  -  PHASE  VFI.JCITY  PLANE 

C 

C  The  VECTOR  V  OF  PHASE  VELOCITIES  IS  CONSTRUCTED  P*  T4n|*(. 

C  VALUES  AT  INTERVALS  OF  I  IV2-V1  l/INVP-ll)  FROM  V’  OCWN  f' 

C  vi.  similarly,  y ECTOR  om  of  angular  FREQUENCIES  IS  (V\- 

C  STRUCTEO  8Y  TAKING  VALUES  AT  INTERVALS  OF  IICM2-CMII/ 

C  (NOM-l)l  FROM  OM  1  UP  TO  OM2.  NFXT,  MATRIX  1NPCCE  IS  C  - 

C  STRUCTEO  WITH  NVP  ROWS  AND  NOM  COLUMNS.  SINCE  IN“(>I>C  IS 

C  STOREO  IN  VECTOR  FORM,  COLUMN  AFTER  COLUMN,  ELEMENT  J  IN 

C  ROM  I  IS  REPRESENTED  AS  1NMOCEC I  J-l  l»NVP  ♦  I).  The  VALUE 

C  OF  THIS  ELEMENT  IS  DETERMINED  8Y  CALLING  SUPRruTINE 

C  TO  FVALUATF  THE  NORMAL  MOOE  DISPERSION  FUNCTION,  FPP,  r.lR 

C  FREQUENCY  OM|J|  AND  PHASE  VELOCITY  VIII.  IF  FPP  DTS  NIT 

C  EXIST,  THE  ELEMENT  IS  SET  EQUAL  TO  5.  OTHEPMISF  THf  t L F - 

C  MENT  WILL  RE  l  TIMES  THE  SIGN  OF  FPP. 

C 

C  LANGUAGE  -  FORTRAN  IV  1360,  REFERENCE  MANUAL  C2R-&515-4) 

C  AUTHORS  -  A. 0. PIERCE  AND  J. POSEY,  M.I.T.,  JUNE, 1*66 

C 

C 

C  - USAGF - 

C  VAR IA9LES  UM.V.INMOOE  MUST  BF  DIMENSIONED  IN  CALLING  PROGRAM 
C  FORTRAN  SUBROUTINE  NMOFN  (0ESCR18EC  £1 SEWNERF  IN  THIS  SFRIESI  IS 
C  CALLEO 

f 

l  FORTRAN  USAGE 

C  CALL  MPruT ( CM1 , 0M2 , VI , V2 ,NOM,NVP , INMCOE ,CM,V,ThETK) 

C 

C  INPUTS 

f. 

C  CM1  MINIMUM  ANGULAR  FREQUENCY  TO  RF  CONSIOIRED  IRAOIANS  /  SEC 

C  R"4 

C 

C  0M2  MAXIMUM  ANGULAR  FREQUENCY  TO  BF  CONSIDERED  IRAOIANS  /  SFC 

C  P*4 

C 

C  VI  MINIMUM  PHASE  VELOCITY  TO  BE  CONSIDERED  IKM  /  SECI 

C  P*4 

C 

C  V2  MAXIMUM  PHASE  VELOCITY  TO  HE  CONSIOERFD  IKM  /  SFC I 

C  R*4 

C  NOM  NUMBER  OF  FREQUENCIES  TO  BF  CONSIDERED  (NO.  OF  t  L t  MfcN IS 

C  1*4  IN  IX  A  1  NO.  OF  COLUMNS  IN  I NMOOFI 

C 

C  NVP  NUMBER  OF  PHASE  VELOCITIES  TC  BE  CONSIDERED  (NT.  TF  ELE- 

C  !««  '  MFNTS  IN  V  ANO  NO.  OF  ROMS  IN  I NMOOE I 

C 

C  THETK  OIRECTIUN  OF  PHASE  VELOCITY  MEASUREO  CTUNTER  CICCKWISE 

C  R*4  FROM  X-AXIS  (RADIANS) 

C 

C  CUT  PUTS 
C 

C  INMODE  MATRIX  OF  NORMAL  HOOF  OISPERSICN  FUNCTION  SIGNS  (SFF 

C  1*4101  ARSTRACT  A80VE  FOR  EXPLANATION  OF  ELEMENT  VAl Uf S I 

C 

C  OM  VECTOR  OF  NOM  VALUES  OF  ANGULAR  FREQUENCY  AT  t  OOAl  IMLQ- 

C  P*4(0I  VAIS  FROM  0M1  TO  OHJ  INCLUSIVt  (RADIANS  /  SFCI 

C 

C  V  VECTOR  OF  NVP  VALUES  OE  PHASE  VELOCITY  AT  EQUAL  IMUVUS 

C  P • 4 ( D )  r^OM  V2  TO  VI  INCLUSIVE  IKM  /  SECI 

C 
C 

C  - EXAMPLE - 


MpOFj 

, 

MpQlj 

? 

*P'H 

3 

i 

/, 

MPOU 

r 

MO1  | 

/, 

*Pf  1 

7 

MP'«U 

R 

Mpi.,, 

6 

Mf*-'U 

1C 

MpUU 

1  1 

vp^U 

12 

MP°U 

13 

n»nu 

14 

wp  >|| 

14 

MP'HJ 

16 

mp»*u 

1  T 

Mp'MJ 

1  « 

MPP  J 

1  9 

?c 

vpnn 

21 

mpou 

2? 

MPOU 

2  T 

MP"l) 

24 

MP  )IJ 

24 

MP^u 

26 

►  POIJ 

2T 

MPOU 

28 

mpou 

29 

mpou 

3C 

MPOU 

31 

mpou 

32 

«PDU 

33 

mpou 

36 

MPOU 

34 

MPOU 

36 

mpou 

3T 

MPOU 

38 

mpou 

39 

"POU 

4C 

MPOU 

41 

MPOU 

42 

MPOU 

43 

MPOU 

66 

MPOU 

65 

MPOU 

66 

MPOU 

4T 

MPOU 

48 

MPOU 

49 

MPPlJ 

40 

MPOU 

51 

MPOU 

42 

MPOU 

53 

MPOU 

54 

MPOU 

45 

MPOU 

56 

MPOU 

57 

MPOU 

48 

MPOU 

40 

MPPlJ 

60 

Mpnu 

61 

MPOU 

67 

Mpnu 

63 

MPOU 

6  4 

mp<xj 

64 

mpou 

66 

PPCGPAm 

MP^U 

67 

f  Mp  ">UT 

MPOy 

t  8 

MPl'U 

60 

P  Atif 

Vpn  , 

7  C 

*1 
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c 

“P  "*U 

71 

c 

CtillHS  PROGRAM 

ppntJ 

72 

c 

OtMENSIL'N  n*MJI  .V<  31  .1NH00I9) 

HPl’U 

73 

c 

0*1  *  1.0 

“POl| 

74 

c 

0#?  «  no 

HPTJ 

7S 

c 

VI  «  1.0 

HP' Hi 

76 

c 

V2  •  3." 

PP  'U 

77 

c 

NO*  *  3 

upnij 

c 

NVP  ■  3 

“pun 

7« 

f. 

THFTU  «  0.0 

•  POO 

BO 

c 

CALL  HPOUT  ICMl.OHJ.V! ,  V2  .NCM.NVP,  SNMCOf  .OM,  V,  T  HETM 

B  1 

c 

END 

“P'BI 

"2 

c 

“Pi  U 

“3 

c 

UPON  RETURN  FROM  MPOUT,  OH  AND  V  MILL  HAVE  THE  F CL L CUING  VAl  UES 

“P'lU 

U4 

c 

CM  *  1.0  ,  2.0  ,  3.o 

Ppoij 

NS 

c 

V  *  3.0  ,  2.  C  ,  1.3 

“p.UI 

c 

fACH  OF  THE  NINE  ELEMENTS  JF  lN«nnt  MILL  RE  -1.  1  OR  5  AS  DETER *1 NED 

“P9|J 

»7 

c 

BV  THE  NIRPAL  UCUE  DISPERSION  FUNCTION  (SEE  ABSTRACT  ABOVel 

Hp  >l| 

“R 

c 

prju 

S“ 

c 

“P  111 

00 

c 

- PR.ir.RAH  FOLLOWS  BEL  CM - 

HP'  u 

‘H 

f. 

vP'M) 

'<? 

c 

•  pili) 

01 

SUHRPUT INE  MPOUT 1 9*1 .0M2.V1. V2.N0H.NVP , INNODE, OP. V,  THETK  1 

PPOH 

94 

r. 

H«mj 

IS 

c 

VARIABLE  01  PENSIONIN'. 

HPOU 

96 

0  INF  NS  ION  i)Hin,Vtn,!NHOO£(U 

ppr>u 

97 

CflHUCN  |MAX,C!tlO0),VX|(IOOl,VVI(tOO».H(  1001 

PPOU 

OB 

c 

HPOU 

99 

c 

INTERVAL  BETWEEN  SUCCESSIVE  EL  LNf  NTS  OF  OP  IS  OtTEPPlNED 

HPOU 

100 

OELCN*  ICN2-0“l  1  /<  NflH-l  | 

PPOU 

101 

r 

ppnu 

10? 

c 

INTERVAL  BETWEEN  SUCCESSIVE  ELEMENTS  CF  V  IS  OE TERN INEO 

HPOU 

103 

OELV  *IV2  -  Vll/CNVP-ll 

MPOU 

104 

c 

HPOU 

105 

c 

VECTOR  V  IS  CONSTRUFTEn  KITH  VIII  UKOPPING  FROM  V2T0  VI  AS  1  GOES  FROM 

HPOU 

106 

c 

l  TO  N VP 

HPOU 

107 

VI  l  l*V2 

PPOU 

108 

on  10  l«2,NVR 

MPOU 

109 

io  vm*vi  i-n-oELv 

PPOU 

110 

c 

MPOU 

111 

c 

CNIJI  GOES  FRON  ONI  10  OH 2  AS  J  GOES  FRCM  t  TC  NON 

PPOU 

11? 

on  no  jhI.non 

PPOU 

113 

BRIJI  •  ONI  ♦1J-1I«0LL0M 

MPOU 

114 

c 

PPOU 

115 

c 

FOR  A  FIXED  VALUE  OF  J,  ALL  VALUES  OF  I  FROH  l  THROUGH  NVP  APE  CONSID¬ 

MPOU 

116 

c 

ERED.  THUS  EVALUTtNG  COLUMN  J  OF  INNODf 

MPOU 

117 

DP  90  I ■  l. NVP 

PPOU 

118 

c 

MPOU 

119 

c 

IJ  IS  NO.  OF  ELEMENT  IN  V  TOR  REPRESENTATION  OF  INPCOE  WHICH  CORRES¬ 

HPOU 

120 

c 

PONDS  TO  ELEHENT  J  OF  ROM  1  IN  MATRIX  FORM  OF  IN«ODE 

PPOU 

121 

IJ»U-1I»N*P  ♦  I 

HPOU 

122 

vphse«vi i ) 

MPOU 

123 

c 

MPOU 

12* 

c 

NMOFh  IS  CALLED  T  D  EVAUATE  THE  NORMAL  MODE  01SPERS1CN  FUNCTION  FOR 

HPOU 

125 

c 

FREQUENCY  OP|J)  AND  PHASE  VELOCITY  VIII 

HPOU 

126 

CALL  N»OFNIOH( J) , VPHSE . THETB.l .FPP.Rl 

MPOU 

127 

c 

PPOU 

12  8 

c 

WHEN  NORMAL  “COE  DISPERSION  FUNCTION  OOES  NOT  EXIST  ll.FQ.-ll.  INPOUt 

MPOU 

120 

c 

IIJ)  •  5 

PPOU 

130 

IFIL  .EC.  -11  GO  TO  SO 

PPOU 

131 

c 

MPOU 

13? 

c 

MFEN  THt  FUNCTION  DOES  EXIST  AND  IS  FPP,  INMODFIIJI  •  1»F  PP/ABS  IF  PPI 

HPOU 

133 

INMOOEIIJI  •  1 

HPOU 

134 

IF  IFPP.LE.O.OI  INMOIIEIIJI  ■  -1 

HPOU 

135 

GO  TO  BO 

MPOU 

136 

09059414 

SO  1 NNOOE  C 1 J>  *S 

HPOU 

137 

r  **nut 

«C  CONTINUE 

PPOU 

138 

90  CONTINUE 

HPOU 

139 

P4GE 

RE  TURN 

HPOU 

140 

*? 

frPCtl  141 


kKO 


PROGRAM 
T  MPOIJT 

P4GP 
A  ^ 
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- ABSTRACT - 


TIRE  -  NAMPDE 

PRPGRA**  TO  DETERMINE  AN  AMPLITUDE  TACTGR  AMPLTl)  OF  A  GUIDED 
NODE  EXCITED  BY  A  POINT  ENERGY  SOURCE  IN  THE  ATMOSPHERE.  THE 
SOURCE  IS  AT  ALTITUDE  2SCRC6  KH  AND  THE  DBSFRVfR  IS  AT  ALT1  TlJOt 
COBS  IN  KM,  THF  PARTICULAR  AMPLTO  CCMPUTED  CORRESPONDS  TO  AN 
ANGULAR  FREQUENCY  OMEGA  <RAD/SEC),  A  PHASE  VELOCITY  VPHSE 
IKH/SEC),  AND  A  PHASE  VELOCITY  DIRECTION  THETK  (RADIANS!  REC¬ 
KONED  COIATER-CLOCKWISE  FROM  yH£  X  AXIS.  PARAMETERS  DEFINING 
THE  ambient  ATMOSPHERE  AkE  PRESUMED  to  be  stored  IN  COMMON. 

THF  NORMAL  MOOE  DISPERSION  FUNCTION  KMDF  IS  PRESUMED  TO  VANISH 
FOR  ARGUMENTS  OMEGA, VPHSE, THETK. 

the  actual  definition  of  ampltd  is  as  fpllom S.  LET  SI  I  El  AND 

S? « /  *  BE  THE  SOLUTIONS  OF  THE  RESIDUAL  EQUATIONS 

OtSU/02  *  I  A 1 1)  r  S  l  ♦  (A12I»S?  11*1 

CIS71/02  *  (  A21  I*S1  ♦  I  A22  )»S2  (l-P> 

MHERE  THC  MATRIX  A  IS  AS  COMPUTED  HV  AAAA  AND  AS  OEF 1  NEC  RY 
A.D.PIERCE,  J.  COMP.  PHYS.,  VOL.  1,  NO.  3,  FEB., 1967,  PP.  343- 
366,  EOS.  11.  THE  CLEMENTS  OF  A  SHCULD  BE  CCNS1DFRFC  AS  fUNC- 
T If  NS  OF  ALTITUDE.  ME  OEF INF  THE  RFOUCFU  PRESSURE  2FNI2)  AS 

2FNUI-  I C  /C  » *  S  t  -  C-S2  12) 

MHERE  G  IS  ACCELERATION  OF  GRAVITY  AND  C  IS  SOUND  SPEED.  THEN 


S2I  2  SCRCE  l*2FN<  20BS I 


AMPLTO  *  (1/21- -  (3! 

B0M<2SCRCE»- INTEGRAL 

MHERE 

BDM(Z). OMEGA  -KX»VX«ZI  -KY*VY(  2  >  (A) 


IS  THE  DOPPLER  SHIFTED  ANGULAR  FREQUENCY.  THE  INTEGRAL  IS  1/2 
OF  THE  I-SURl  OEMNEO  BY  A.D.PIERCE,  J.  ACOUST,  SCC.  AMER,, 

VOL.  37,  NO.  2,  FEB. ,1965,  »P.  218-22T,  EO.  1511.  SPECIfICAllY 

INTEGRAL  «  (INTEGRAL  OVER  l  FROM  0  TO  INFINITY!  OF 

(30M*(  (KX*VX»KY»VYl/K)»VFN(2l  —  2 
*(K»CMf  "A/BCM*»3)-2FNI2I-»?  1  151 

MHERF  K  IS  the  MAGNITUDE  of  THE  MAVE-NUMBEA  VECTOR  ( KX ,KY)  AND 
# 

yfn(2i  •  ( i/ci-smi  ie> i 

PROGRAM  NOTES 


THE  INTEGRAL  IS  COMPUTED  BY  SUBROUTINE  TOTINT  IN  TWO  PART 
AS  X  3tX  7.  THE  FIRST  IS  OBTAINED  BY  CALLING  TOTINT  WITH 
I T «3 ,  MHILE  THE  SECOND  IS  OBTAINED  BY  CALLING  TOTINT  MITH 
IT-7.  THF  IT  PARAMETER  GOVERNS  THE  CHCICF  OF  COEFFICIENT 
Al,  A2,  A3  RETURNED  TO  TOTINT  BY  SUBROUTINE  USEAS.  FOR 
FURTHER  INFORMATION,  SEE  THE  DOCUMENT  AT  ION  ON  TOTINT  AND 
USEAS. 

THE  NORMAL  UATION  CF  SI  AND  S2  CANNOT  AFFFCT  AMPLTO. 
HOWEVER,  TOTINT  AOQOPTS  NORMAL  12  AT  ION  WHERE 

51  --SORT (GG) -Al? 

52  *  SQR T ( GG I •( GG- A  111 

AT  THE  BOTTOM  OF  THE  UPPER  HALF  SPACE.  THE  NUMERATOR  OF 
EQ.  (  3)  IS  ACCORDINGLY  COMPUTED  WITH  SAME  NORMAL  I  2  AT  I  ON. 
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^  AMP 

ir 

MNP 

11 
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12 

A  AMP 

1  3 
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KAMP 

!« 

AA*P 

16 

NA-p 

17 

A  AMO 

16 
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IS 

AAMP 

2  0 

N  A**o 

21 

\A*P 

22 

SAMP 
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AAMP 
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AAMP 
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AAMP 
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AAMP 
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AAMP 
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NAMP 
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AAMP 
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AAMP 
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AAMP 
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AAMP 
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AAMP 
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NAMP 

50 

NAMP 
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NAMP 
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HERE  GD=SORT(AU«t2*A12»A2I1. 

NA*P 

7! 

NAMP 

72 

THF  'INLY  HOUNOARY  CONDITION  EXPLICITLY  UStO  IS  THE  UPPER 

NA*P 

71 

BQUNOARY  CONDITION  WHEREBY  BOTH  SM/I  AND  S2I2)  DECREASE 

NAMP 

74 

£  XP  1NENT IALLY  WITH  INCREASING  HEIGHT  IN  THt  UPPER 

NAMP 

75 

HALESPACE.  IF  THIS  CANNOT  PE  SATISFIED,  THE  PROGRAM 

NAMP 

76 

RETURNS  AMPLTD=0.  THIS  WOULD  IMPLY  THAT  THE  POINT 

NAMP 

77 

CONSIDERED  IS  PRACTICALLY  IDENTICAL  TO  ONE  WHERE  CMLGA 

NAMP 

7» 

IS  THE  CUTOFF  FREQUENCY  FOR  THE  GlItOEU  MODE  UNDER 

NAMP 

70 

CONSIDERATION. 

N  AMP 

RC 

NAMP 

"1 

WHEN  NPRNT  IS  POSITIVE,  SEVERAL  PARAMITERS  D£SCRI°!NG  The 

N  AMP 

R? 

PROFILES  OF  SI  AND  S2  ARE  PRINTED  UNDER  THt  HEADING  PRO¬ 

F  Amp 

“  1 

VIDED  BY  SUBROUTINE  PAMPOE.  SEE  PAMPOE  FOR  THE  Dt  F  IM- 

f  AMJ» 

R4 

TIONS  or  THESE  PARAMETERS. 

A  AMw> 

*5 

NAMP 

H  t 

LANGUAGE 

-  FORTRAN  IV  I 160  ,  REFERENCE  MANUAL  C28 -AN  1 5-4 1 

P\4P 

-7 

NAMO 

MR 

AEThCR 

-  A.D.PIERCE,  M.I.T.,  JUNR ,1968 

A  AMP 

oo 

A  AMP 

0C 

- CALL ING  SEQUENCE - 

A  A*«P 

41 

A.A«-> 

O  1 

SFE  SUBROUTINE  PAMPDE 

NAMP 

01 

DIMENSION  CIUOOI.VXIUOOI.VYIUDOI.HH  1001 

NA«»» 

04 

COMMON 

IMAX, Cl ,VX1,VVI,HI  (THESE  MUST  KE  IN  C  DMMf  N ) 

A:  AMP 

4S 

CALL  NAMPUEIZSCRCE,  ZORS,  OMEGA,  yPHSE  ,THt  TK.AMPLTO, NPRNT) 

hAMp 

**6 

NAMP 

07 

- EXTERNAL  SUBROUTINES  REQUIRED - 

NAMP 

Oft 

NAMP 

00 

TOT  1ST  , 

MMMM.AAAA.USE  as.upint  ,elint,bphh,cai,sai 

NAMP 

ICO 

NAMP 

101 

(THE  FIRST  THREE  ARE  EXPLICITLY  CALLED.  THE  REMAINING  SUBROUTINES 

NAMP 

102 

ARE  IMPICITLV  CALLED  WHEN  TtlTINT  IS  CALLED. 1 

NAMP 

101 

NAMP 

1 C4 

- ARGUMENT  list - 

NAMP 

1C5 

NAMP 

106 

ZSCRCE 

R*4  NO  INP 

NA»-p 

107 

ZDBS 

R*4  NO  INP 

NAMP 

10B 

CMEGA 

Rr4  NO  INP 

NAMP 

ICO 

VPHSE 

R*4  NO  INP 

NAMP 

110 

THF  TK 

R*4  ND  INP 

NAMP 

III 

ampltd 

R»4  Nl)  OUT 

NAMP 

112 

NPRNT 

1*4  ND  INP 

NAMP 

113 

NAMP 

114 

CCRMON  STORAGE  USEO 

NAMP 

115 

common 

IMAX.U  .VXI.VYI  ,H| 

NAMP 

116 

NAMP 

117 

IMAX 

1*4  NO  INP 

NAMP 

118 

Cl 

R*4  100  INP 

NAMP 

110 

VXI 

R»4  100  •»  . 

NAMP 

120 

VYl 

P.*4  100  INP 

NAMP 

121 

HI 

«  R"4  100  INP 

NAMP 

122 

N  AMP 

123 

- INPUTS - 

NAMP 

124 

NAMP 

125 

ZSCRCE 

•HEIGHT  UK  SOURCE  IN  KM 

NAMP 

126 

ZOBS 

•HEIGHT  OF  OBSERVER 

NAMP 

127 

OMEGA 

•ANGULAR  FREQUENCY  IN  RAUIANS/SEC 

NAMP 

128 

VPHSE 

•OHASE  VELOE I IY  IN  K*/SfcC 

NAMP 

120 

THFTK 

•PHASE  VELOCITY  DIRECTION  (RAUIANSI  RECKONED 

NAMP 

130 

NPRNT 

•PRINT  OPTION  INDICATOR  (Sft  NAM|  IN  MAIN  PROGRAM). 

NAMP 

131 

COUNTER-CLOCKWISE  FROM  X  AXIS. 

NAMP 

132 

IMAX 

•  NUMBER  OF  ATMOSPHERIC  LAYIRS  WITH  F  INI  II  IHICKNISS 

*^MP 

133 

CM  1 1 

•  SOUND  SPFtO  IKM/SfU  IN  l-TH  L  AY  F u 

NAMP 

114 

vx  i  ( i ) 

•  X  COMPONENT  01  WIND  VELOCITY  (K«/StCI  IN  l-TH  LAYER 

NAMP 

1  <5 

VY I  (  11 

•  Y  CfMPONLNT  OF  WIND  VHDCITY  (KM/SEf  1  IN  1-lH  LAYER 

NAMP 

136 

HI  (  I  1 

•  thickness  in  km  nr  i-th  layer 

NAMP 

137 

NAMP 

118 

- OUTPUTS - 

NAMP 

lio 

NAMP 

140 

program 

NAMPOF 

PAGt- 
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f  ARELTll  =A«fn  ITUOE  FACTOR  FOR  GUIDED  WAVE  EXCtTfcU  B  Y  PC  IF  T 

c  energy  source,  units  are  KN*-»t-n. 

c 

C  - EXARPLc - 

c 

r.  SUPPOSE  The  ATROSPHfcRE  IS  ISOTHERMAL  AM)  THERE  ART  NO  wIEDS.  THr  N 
r  THERE  IS  Only  inf  mode.  FIR  WHICH  VPHSE'C.  FURTHERMORE,  yfni/i 
C  AE'O  sun  ARF  ROTH  ZERO.  THE  ZFN 1 7 »  DECREASES  EXPONENTIALLY 
C  WITH  Mtl.HT  AS  FXPl ~(0.3»G/C*«2I I .  THE  RESUITING  A-PlTO 

C  SHOUIO  RE 

C  AMPLT  0=-l.3«:;/C’'»?l«EXP(-.3*(G/C»*-2l»(ZnRS*ZSCRCt )  l 

C  REGAPOLESS  of  values  OF  OMEGA  ANC  THETK.  IE  C*l/1  KM/SFr, 

C  G=  .3 1  KM/SEC'-?,  ZP3S  =  0,  ZSCRCF'C,  THEN  AMPL  TO  =  .02?  KW»*(-I). 

C 

C 

C  - PROGRAM  FOLLOWS  8E1.CW - 

C 

C 

SOOROUT INg  NAMPUEIZSCRCL.ZOHS.GMCGA.VPHSF, THETk ,AMPL TO.NPRE  T) 

C 

Cl  MENS  ICN  Cl  ( tooi.vxil  ICC  I,  vyk  no  .HI  I  nci 
01  MENS  I CN  A(2,2I,EM(2.2) 

01  MENS  ION  21.17  (21  ,St(  21  ,S2(2)  ,VXI  JZ121  ,VYI  JZI?)  ,CI  JZ|2) 

C  DIMENSION  STATEMENTS  AODEO  IN  THt  OERUG  PROCESS 

01  MENS  10  i  LAYJ’(2I ,OFl T(2) , RPP( 2 . 21 ,EMP (1 00, 2. 2 ) ,0O«»Y(2,2 I 
DIMENSION  Rrttlt  nO.rMlPtlOOl 
COMMfN  INAX.CI.VX  I,VY|,M| 

C 

C  COMPUTE  WAVS  NUMBER  VECTOR  COMPONENTS 
AKX=(OMENA/VPHSE)«COS(THtTR| 

AK  Ya  ( OMEGA/ VP  MSE  1  »S1N(  THf  Tk! 

C 

C  THE  SOURCE  AND  OBSERVER  LOCATIONS  ARE  NUMREMtG  ACCORDING  TO  HEIGHT 
IF1ZSCRCE  .GT,  ZOHS  )  GO  T,1  10 
71  J2U  WSCRCE 
7IJ2I  2W0RS 
NSCRf F  a  1 
NOBS' 2 
GO  TP  20 
1C  21 J2(l )»ZC*}S 
2IJ2(21'2SCRCc 

srns-i 

NSLRfE*2 

c 

C  WE  OENOTE  SI  AND  S2  AT  BUTT()“  PE  UPPER  HALFSPACE  RY  FI  AND  E2.  THE  I  ■* 

C  COMPUTATION  IS  AS  FOLLOWS. 

20  I7MAX«2 
J  *  1  MAX ♦ I 
C'fllJI 
vx»vxi ( ji 

VY«VYI  I  J1 

CALL  A<AA<nMEGA,AKX,AKY,C,VX,VY,A) 

X*  A I t, I 7*A  <  t,2»*AI2,I> 

I F  ( X  .LE.  0.01  GO  TO  200 
G*S0RT( XI 
GR  T  a  SQR  TIG1 
F l a-GRT a  A ( 1,21 
F  2*GP  T' ( A( 1 , 1 1  * G 1 
C 

C  *E  COMPUTE  2M  KF  PRL  SF  NT  I NG  THE  BOTTOM  OF  THE  UPPER  HALF  S  AC  E 
ZM-0.0 

I F  (  I  MAX  ,F0.  01  GO  TO  1 1 
00  3C  IC'I.IMAX 
TO  2M»  2M*H I ( I C 1 
C 

C  WF  STORF  FIP.F2P.2MP 
31  F1P.F1 
F2P.F2 
2MP*2M 
C 


^  A  •>  -> 

1M 

KAM»> 

142 

KA*P 

1  *3 

ka;*p 

IS  4 

KA  *P 

1  4  S 

K  AMP 

1  44 

KAMP 

147 

kamp 

1  4R 

t  A^!> 

!<.■) 

^  AMO 

I‘0 

^Avp 

|S1 

NAMO 

1^2 

KAMO 

I  B  3 

KAMP 

144 

►.AMP 

l‘s 

KAMP 

!  SF 

K  A*»o 

1ST 

1«  ^ 

K  AM.i 

\'“ 

\>\  M'» 

l<  ‘ 

f  AMP 

|(  1 

»jA"  J 

lh2 

KA  *P 

i »  i 

KAM»* 

: 

K  AMP 

lss 

KAMO 

I  44 

K  AMP 

1  f7 

>  AMP 

1S» 

NAMP 

IftO 

NAMP 

170 

KAMP 

171 

KA*P 

172 

NAMP 

173 

KAMP 

174 

NAMP 

17S 

KAMP 

l  7ft 

KAMP 

177 

NAMP 

178 

KAMP 

170 

KAMP 

IRC 

KAMP 

I  8  I 

KAMP 

IB’ 

KAMP 

18’ 

KAMP 

1B4 

KAMP 

IBS 

KAMP 

l«ft 

KAMP 

187 

NAMP 

1  Rrt 

KAMP 

189 

KAMP 

1«0 

KAMP 

1«1 

KAMP 

192 

NAMP 

l°3 

KAMP 

104 

NAMP 

1°5 

K  Ay  p 

19ft 

KAMP 

197 

NAMP 

198 

KAMP 

I09 

NAMP 

200 

KAMP 

201 

KAMP 

202 

NAMP 

20’ 

KAMP 

204 

KAMP 

20S 

NAMP 

206 

KAMO 

207 

KAMP 

208 

KAMP 

2Co 

NAMP 

210 

PROGRAM 

NA**PI)F 
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c 

COMPUTATION  OF  LAYJZIJZI  AND  OELTTJZ) 

KA«P 

211 

c 

LAYJZIJZI  IS  THE  INOEX  OF  THE  LAYER  IN  WHICH  ZUZIJZI  LIES. 

NAMP 

21? 

c 

WHILE  OELTIJZ)  IS  THE  DISTANCE  OF  ZUZIJZI  ABOVE  THE  BOTTOM  EDGE  CF 

MNP 

?t  3 

c 

THE  LAYER 

MNP 

?!<• 

DO  35  JZ*  1 « 2 

NA*P 

215 

LAYJZI  JZI*|MAX*1 

MNP 

216 

32  DELT(JZI*ZIJZ(JZ)-ZM 

KAMp 

217 

IF (DEL  T I  JZ 1  .GT.  O.OI  GO  TC  35 

MNP 

2 1 8 

I FI  LAY  JZ I JZ  I  .EQ.  1)  GO  TO  35 

MNP 

2 1 0 

LAYJZIJZI  *LAYJZ(  JZt-1 

MNP 

220 

ZM*ZM-HHLAVJZ(JZII 

MNP 

?’l 

c 

AT  THIS  POINT  ZM  DtNUTES  THE  BOTTOM  OF  THE  LAYJZIJZI  L A YE P 

KA«P 

22? 

GC  TO  32 

MMP 

??3 

35  ZM=ZMP 

KAMP 

226 

c 

KAN® 

226 

c 

COMPUTATION  OF  EM  MATRICES  FOR  ALL  IMAX  LAYERS  OF 

FINITE  THICKNESS 

NANP 

226 

c 

fMIIP.jri  FOR  I-TH  LAYER  IS  STORED  AS  ENPU,IP,JP| 

KANP 

22  7 

DO  36  1*1, IMAX 

MNP 

228 

C*CI(  I) 

KANP 

220 

VX  *  vx  1 1  II 

MNP 

2  30 

VV*VYI I I ) 

KANP 

2>l 

K=H!( 1) 

KA*P 

232 

CALL  MMMMICMEGA, AKX,AKY ,CiVX ,VY,H,EM| 

MNP 

2  3  * 

00  36  I P  =  l  ,2 

KANp 

?66 

or  36  JP*l « 2 

MNP 

235 

36  EMPI  I,IP,JPI*EM(IP,  Jp) 

KANP 

2’6 

c 

KANP 

?  37 

c 

COMPUTATION  OF  RPP  MATRIX.  THIS  ACCOMPLISHES  THE 

SAME  AS  CALL  ING 

KANP 

2  38 

c 

SUBROUTINE  RRRR 

KANp 

239 

BPPtl,tl*1.0 

KANP 

260 

RPPII, 21*0.0 

KANP 

261 

RPPI2, 11*0.0 

KANP 

262 

RPPI2. 21*1.0 

KANP 

263 

00  38  1*1, IMAX 

MNP 

266 

J ASA* I MAXF 1-! 

KANp 

265 

00  37  1 P*1 , 2 

KANp 

266 

DO  37  JP*1,? 

KANP 

267 

37  OUMMYI  IP,JP»=£MP(JASA,  IP,  1  l*RPP|  1  ,  JP»  *EMPI  JASA 

,  IP,2I*RPPI2,JPI 

KANp 

268 

DC  38  IP*l ,2 

NANP 

269 

DO  38  JP*  1,2 

KANP 

250 

38  RPPI IP, JPt*OUMMY( IP.JPl 

NANP 

251 

c 

NANP 

252 

atUIT  =  ABSIRPPI  l,lll/(AOSIRPPIl,tll*ARS(RPP(l, 

2I)»ABSI«PP(2,1I 1 

KANP 

253 

1  *  ABS I RPP (2,2111 

NANP 

256 

IF  (  QUOT  ,L  T,  0.1  1  GO  TO  120 

KAMP 

255 

F2H0T  *F2P/RPPI1,1  1 

KANP 

256 

GO  TO  150 

KANP 

257 

120  OUOT  =  ABS IRPPI1,21 1  /  ( A8SI RPP (l ,  1  1 1  ♦ABSIRPPI  1, 

2  1 1 *ABS I R  PP I  2, 1 1  1 

NAMP 

258 

1  ♦ A8SIRPP (2,21)1 

NANP 

259 

I F  I  OUOT  .LT .  0.1  1  GO  >130 

KAMP 

260 

F2B0T*-F1P/RPP(  1 ,21 

NANP 

261 

GO  TO  150 

KAMP 

2  62 

130  F2B0T*RPP(2,I 1" F 1 P*«PP( 2, 2 l*F2P 

NANP 

263 

150  F2R0T * F280T 

KANP 

266 

PHU  (1  |  *0.0 

KAMP 

265 

PHI2II  )«r2B0T 

KANP 

266 

KT0UP*1 

NANP 

267 

K* I  MAX* l 

NANP 

268 

PHI 1 1 Kl *F1 P 

NANP 

269 

PHI2IK) *F2P 

KANP 

270 

331  TI«PHIl(KI 

KANP 

271 

T?*PHI2(X) 

KAMP 

2  72 

X*K-1 

NANP 

273 

IF(K  .EO.  1  1  G'l  TO  <,r\> 

KANP 

2  76 

C*CI IKI 

KANp 

275 

VX*VX! ( Kl 

KANP 

276 

PROGRAM 

VY  *VY I  ( K 1 

NANP 

277 

NAMPOE 

call  a '  la(omfga,akx,aky,c,vx,vy, ai 

NANP 

278 

X*  A1  I  ,  ll«*2*A(  1  ,  2  1  *A  (  2 , 1  1 

NANP 

279 

PAGE 

IFIX  .GT .  0.01  GO  TO  360 

NAMP 

280 

47 
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333  PHmK)»ENP(K,l,l)»Tl*cHP(K,l,2)»T2 
PHI2(K(*£»P(K.2C  llMUENPIK,  2,21*1? 

GO  10  331 

3*0  Ol*Afl.l)*Tt*A(l,2l*T2 
02**17. I I»T1»A(2,2)*T7 

IF  1  01  .LI.  O.C  .ANO.  T1  .LT.  0.01  GO  TO  3*1 

IF  1  01  .Gt.  3.0  . ANO.  II  .01.  O.C  !  OF  TC  3*1 

IF  1  02  .It.  0.0  .ANO.  T7  .LI.  0.0  1  GO  TO  3*1 

IF  (  02  .01.  O.C  .ANO,  17  .GT.  C.O  I  GO  H'  3*1 

GO  TO  331 
3*1  CONTINUE 

C  AT  THIS  POINT  THE  CURRENT  VAIUF  OF  K  IS  NOT  ZERO  OR  CNF 

kt  cup*  s 

Of  1*0  K  *2 , KT  3UP 
J£T*K-1 
’  l*f’HI  1 1  JET  I 
T2.PHI2IJETI 

PHIllKI*tXP(  JFT, 2,21  •Tl-ENPI  JET,  1,7  l*T7 
360  PH  1 2 (K )*-£MP< JET, 2, 1I*T1.£MPU£ T, 1 , 1 1  *  T7 
*00  IF  INPRM.LT. 01  GO  TO  *10 
NZC1  *  0 
N2C2  *  0 
I AP 1  NT  *  1 
I AP2MX  *  1 

AP 1  NX  *  AflSIPHIlllll 

AP2MX  =  A0SIPHI2I1  II 

DO  *C 7  LNN1*1,INAX 

LN  «  LNMl  ♦  l 

API P  *  *8$ ( PHI  1 ( LN) I 

IF  UP1P.LE.AP1NXI  GO  TO  *03 

I AP 1  NX  *  LN 

AP1MX  *  AP IP 

*C  3  AP2P  *  A8SIPHI2ILNI) 

IF  (AP2P.LE.AP2NXI  GO  TO  *00 
AP2NX  «  A P2 P 
IAP2MX  *  LN 

*05  IF  IIPHII(INH1I*PHUILNII.LT. 0.01  NZCl  *  NZC1  ♦  1 
IF  (IPHI2ILNN1  )*PHI2(LNI  I.LT.O.OI  N7C  2  *  N2C2  ♦  I 
*07  CONTINUE 

81  *  PHI1UAPINXI /AP2NX 
R2  «  PHI2IIAP2MXI/AP2HX 
R  3  =  PHI2UI/AP2MX 

WRITE  I 6, *091  ONEGA, VPHSE, 1 AP 1NX , Rl ,NZC 1, I AP2MX ,R?,NZC2,R 3 
*09  FCKMA1  (  1H  ,?F12.0,9X,13,F12.5,9X,I3,9X,I3,F12.5,9X,I3,F12.5I 
*15  00  *50  JZ*1,2 
IOA*LAYJZ(  JZ) 

C*C!< ICAI 

VX*  VX  1 1  ICAI 

VY»VYJI  IDA  I 

Cl JZIJZI-CK  I0AI 

VXf  JZI  J2l«VXHtOAI 

VYIJ2I JZ)*VYII  I0A1 

IF  I IOA  .EQ.  INAX*l I  GO  TO  *20 

IF  I  IOA  ,LE .  KTOUPI  GO  TO  *30 

JETMOAM 

H.HKIOAI-OEL  T1JZI 

CALL  NHMS('3x:GA,AKX,AKY,C,VX,VY,H,EM) 

SI  I  J2I»EN(  l  ,ll*PHU  1JETI*EMU,2)*PHI2IJETI 
S2IJ2I»EN( 2,1) *PHI 1 1JET)*JNI2»2)*PH121J£T) 

GO  TO  *50 

*20  E0N*EXP1-G«DELT|JZ)  I 
SKJZI  «F1P*E0N 
$21 J 2)  *F2P*E1N 
GO  TO  *50 
*3C  H-CELT1  J2  I 

call  nnhhionega, akx ,aky,c, vx , vy , h, eni 

Sl(  J2)  •£N(2, 2 1*PHI1  (IOA) -EMI  l,2)*PHI2l  IOA  I 
S2(J2)*-EN( 2, 1 1 *PHI 1 ( IOA )*EN  u I l )*PHI 21 IOA I 
*50  CONTINUE 
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C  AT  THIS  POINT  SI  ( JZ I  ,S2IJZ  I.C  UZ ( JZ » ,  ETC.  ARE  STORED  FOR  JZ*l  AND  2. 

C  HE  COMPUTE  THE  OOPPLER  SHIFTEO  ANGULAR  FREQUENCY  AT  SOURCE  ALTITUDE. 
100  SON«OMECA-AKX*VXIJZINSCRCEI-AK-«>VY!JZ<NSCACEI 

c 

C  HE  COMPUTE  ZFN  AT  OBSERVER  ALTITUDE 

ZFN«< .0098/C  IJZI NOB SI  I «S1 INOBSI-C 1 JZI  N0SSI*S2(  NOBS) 

HERE  ME  TAKE  THE  ACCELERATION  OF  GRAVITY  TO  BE  .0091  KM/SEC*»2. 

COMPUTATION  OF  INTEGRALS 
IT- 3 

CALL  TOT INT IOMEGA. AKX. AKY , IT,L,X3,PHt 1.PHI2I 
IF (l  .EQ.  -1)  GO  TO  200 
IT  *  7 

CALL  TOTINT (OMEGA. AKX. AKY. IT, l , XT ,PHIt , PHI 21 
[FI l  .EQ.  -1)  GO  TO  200 
C 

C  FINAL  ANSHER 

AMPLTO*  0  .5*S2I  NSCRCE  l*ZFN/<  I  X  3*K7I*R0N1 
RETURN 

C 

C  IF  YOU  ARRIVE  HERE,  THE  UPPER  SOUNOARV  CONDITION  COULD  NOT  BE  SAT1SFIE 
200  amplto«o.o 

RETURN 

c 

END 


NAMP  351 
NAMP  352 
NAMP  353 
NAMP  354 
NAMP  355 
NAMP  356 
NAMP  357 
NAMP  358 
NAMP  359 
NAMP  360 
NAMP  361 
NAMP  362 
NAMP  363 
NAMP  364 
NAMP  365 
NAMP  366 
NAMP  367 
NAMP  36B 
NAMP  369 
NAMP  370 
NAMP  371 
NAMP  372 
NAMP  373 
NAMP  374 
NAMP  375 
NAMP  376 
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NMOFN  (  SUBROUTINE)  7/25/68 

- ABSTRACT - 


TITLE  -  NMOFN 

SOB  A  CUT  I  RE  TO  CO  HAUTE  THE  NORMAL  HOOE  DISPERSION  FUNCTION  FPP 
FOR  GIVEN  ANGULAR  FREQUENCY  ONEGA,  PHASE  VELCCITY  MAGNITUDE 
VPHSE  AND  PHASE  VELOCITY  OIRECTION  THETK.  FPP  SHOULD  VANISH 

IF  both  upper  and  lower  bouncary  conditions  are  satisfied  for 

THE  SOLUTIONS  OF  THE  RESIDUAL  EQUATIONS 

0(PHIlt/02  *  A(l,ll*PH!l(2t  ♦  All, 21* PH  12(2) 

D1PHI21/D2  *  A( 2 , 1 ( *PHI 1(2)  ♦  A(2  ,2)*PHI2( 2) 

WHERE  THE  ELEHENTS  OF  THE  MATRIX  A  VARY  WtTH  HEIGHT  2,  BUT  ARE 
CONSTANT  IN  EACH  LAYER  OF  A  MULTILAYER  ATMOSPHERE.  THE  ELEMENT 
or  A  ARE  FUNCTIONS  OF  OMEGA,  AKX  AND  AKY  AS  DESCRIBED  IN 
SUBROUTINE  AAAA  WHERE 

AK  X*  ONE  G A* CO  S  ( T HE  TK  t  /  VP  HSE 

AKY* OMEGA* SIN (  THETK)  /  VPHSE 

THE  FUNCTION  FPP  IS  DEFINED  AS  THE  VALUE  OF  PMU  AT  THE  GROUND 
12*01  WHEN  (1)  THE  UPPER  BOUNOARY  CONDITION  CF  PHI1  AND  PHI2 
DECREASING  EXPONENTIALLY  WITH  HEIGHT  IN  THE  UPPER  HALF  SPACE 
IS  SATISFIED,  AND  (2)  PHI1  AND  PHI2  AT  THE  BOTTOM  OF  THE  UPPER 
HALFSPACE  ARE  GIVEN  BY  A(l,2)  AND  -(&4A(1,1)I  WHERE 
G*S0RT(AI1,1I**2«A(1,2)*A(2,1!I.  THE  ELEMENTS  OF  A  HERE  ARE 
THOSE  APPROPRIATE  TO  THE  UPPER  HALFSPACE.  CONDITIONS  lit  AND 
(21  ARE  NOT  INDEPENDENT.  'CONDITION  (U  IMPLIES  THAT  G**2  .GT. 
AND  CONDITION  (2)  WITH  G**2  POSITIVE  IMPLIES  (It.  IF  G**2  IS 
NEGATIVE,  FPP  OOE S  NOT  EXIST  AND  l*-l  RETURNED.  OTHFRWISE 
L*1  IS  RETURNEO. 

PROGRAM  NOTES 


THE  PARAMETERS  OEFINING  THE  MULTILAYER  MOOEL  ATMOSPHERE 
ARE  PRESUMED  TO  BE  STOREO  IN  COMMON. 

THE  SUBROUTINE  RRRR  IS  USED  TO  GENERATE  THE  MATRIX  RPP 
WHICH  CONNECTS  SOLUTIONS  OF  THE  RESIDUAL  EQUATIONS  AT 
THE  BOTTOM  OF  THE  UPPER  HALFSPACE  TO  SOLUTIONS  AT  THE 
GROUNO.  IN  TERMS  OF  THIS  MATRIX,  THE  NMD)  IS  GIVEN  BY 

FPP*  RPP (1,1)*A(1 ,21 ~RPP(  1,2  l*(G*All,lt) 

LANGUAGE  -  FORTRAN  IV  (360,  REFERENCE  MANUAL  C28-C515-4) 

AUTHOR  -  A. C. PIERCE,  M.I.T.,  AUGUST,  1968 

- CALLING  SEQUENCE - 

SEE  SUBROUTINES  LNGTHN, WIDEN, MPOUT 

DIMENSION  C!tlOOI,VX!(100l,VY!(100l,HI< 100) 

COMMON  IMAXtCt ,VXI,VY1 ,H!  (THESE  MUST  BE  STORED  IN  COMMON) 

CALL  NMOFNI OMEGA, VPHSE, THE TK,L, FPP, XI 

- EX1ERNAL  SUBROUTINES  REQUIREO - 

RRRR,MMMM,AAAA,CA!,SAI 

- ARGUMENT  LIST - 


OMEGA 

R*4 

ND 

INP 

VPHSE 

R*  A 

NO 

INP 

THEY* 

R*4 

NO 

INP 

l 

1*4 

NO 

OUT 

FPP 

R*4 

NO 

OUT 

NMDF 

1 

NMDF 

2 

NMDF 

3 

NMOF 

4 

NMDF 

5 

NMDF 

6 

NMDF 

7 

NMDF 

8 

NMDF 

9 

NMDF 

10 

NMDF 

11 

NMDF 

12 

NMDF 

13 

NMDF 

14 

NMOF 

15 

NMDF 

16 

NMDF 

17 

NMDF 

18 

NMDF 

19 

NMDF 

20 

NMDF 

21 

NMOF 

22 

NMDF 

23 

NMDF 

24 

NMDF 

25 

NMDF 

26 

NMDF 

27 

NMDF 

28 

NMDF 

29 

NMDF 

30 

NMDF 

31 

NMDF 

32 

NMDF 

33 

NMDF 

34 

NMDF 

35 

NMDF 

36 

NMDF 

37 

NMDF 

38 

NMDF 

39 

NMDF 

40 

NMDF 

41 

NMOF 

42 

NMDF 

43 

NMDF 

44 

NMDF 

45 

NMDF 

46 

NMDF 

47 

NMDF 

43 

NMOF 

49 

NMOF 

50 

NMOF 

51 

NMOF 

52 

NMOF 

53 

NMOF 

54 

NMDF 

55 

NMDF 

56 

NMDF 

57 

NMDF 

58 

NMQF 

59 

NMDF 

60 

NMOF 

61 

NMDF 

62 

NMOF 

63 

NMDF 

64 

NMDF 

65 

NMOF 

66 

NMDF 

67 

NMDF 

68 

NMDF 

69 

NMDF 

70 
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I  MAX 

ct 

VX! 

wi 

HI 


ONEGA 

VPHSfc 

THETX 

IMAX 
CI<  II 
VXIUI 
VYH  II 
Hill) 


FPP 

K 


I*A 

NO 

OUT  (ALWAYS  RETURNED  AS  K>0) 

NMOF 

71 

NMOF 

72 

USEO 

NMDF 

73 

ItCI, 

VXl, VYI, 

HI 

NMOF 

7A 

NMOF 

75 

l*A 

NO 

INP 

NMOF 

76 

P.»  A 

100 

INP 

NMOF 

77 

R*A 

too 

INP 

NMOF 

78 

R*A 

too 

INP 

NMOF 

79 

R*A 

100 

INP 

NMOF 

SO 

NMOF 

81 

— 

--INPUTS 

— 

NMOF 

82 

NMOF 

83 

“ANGULAR  FREQUENCY  IN  RAO/SEC 
“PHASE  VELOCITY  MAGNITUDE  IN  KM/SEC 
“PHASE  VELOCITY  DIRECTION  RECKONED  COUNTER  CLOCKWISE 
FROM  THE  X  AXIS  IN  RAC  IANS 
“NUMBER  OF  LAYERS  OF  FINITE  THICKNESS 
“SOUND  SPEED  IN  KM/SEC  IN  I-TH  LAYER 
•X  COMPONENT  OF  WIND  VELOCITY  IN  1-TH  LAYER  (KM/SEC) 
* Y  COMPONENT  Of  MIND  VELOCITY  IN  l-TH  LAYER  CKM/SEC) 

•thickness  in  km  of  i-th  layer  of  i-th  thickness 

- OUTPUTS - 

“1  IF  NORMAL  MODE  DISPERSION  FUNCTION  EXISTS,  -1  IF 
IT  DOES  NOT. 

“NORMAL  MODE  DISPERSION  FUNCTION 
•OUMMY  PARAMETER  ALWAYS  RETURNED  AS  K>0 


- PROGRAM  FOLLOWS  BELOW - 

SUBROUT  INE  NMDFNI ONEGA, VPHSE , THETK.L, FPP ,K) 

DIMENSION  AND  COMMON  STATEMENTS  LOCATING  PARAMETERS  DEFINING  MODEL 
MULTILAYER  ATMOSPHERE 

DIMENSION  Cl  11001 ,VXII 1001 ,VVII 1001, MI (100) 

COMMON  IMAX  «C  1,VXI,VY!,H! 

DIMENS  ICN  A( 2, 2 1 , RPP( 2, 2) 

COMPUTATION  OF  AKX  AND  AKY 

AKX-OMEGA*COS (THETK l/VPHSE 
AKY«OMEGA*S!N( THETK1 /VPHSE 

COMPUTATION  OF  MATRIX  A  AND  G**2  FOR  UPPER  HALFSPACE 
J«! MAX* 1 
C-CII  Jl 
VX.VXKJ) 

VY“VYI (J) 

CALL  AAA4I OMEGA, AKX, AKY, C,VX,VY,A> 

GUSO« A( 1, 1 I **?»A( t,2)*A(2,l) 

I F (GUSQ  .GT.  0.0)  GO  TO  11 

GUSQ  IS  LESS  THAN  ZERO 
L  — 1 
RETURN 

GUSQ  IS  GREATER  THAN  ZERO 
11  L*  1 

GU-SQRT (GUSQ) 

COMPUTATION  OF  APP  MATRIX 

CALL  AKRR(OMEGi,AKX,AKY,RPP,KI 

COMPUTATION  01  FPP 

FPPrRPPIl.l  )“A(  1,?I-RPP(1, 2I*(GU*A( 1, II) 

RETURN 


BA 

85 

86 

87 

88 

89 

90 

91 

92 

93 
9A 

95 

96 

97 

98 

99 


NMOF 
NMDF 
NMOF 
NMDF 
NMDF 
NMOF 
NMOF 
NMDF 
NMOF 
NMDF 
NMDF 
NMDF 
NMDF 
NMDF 
NMDF 
NMDF 
NMDF  100 
NMDF  101 
NMDF  102 
NMDF  103 
NMDF  IDA 
NMOF  105 
NMDF  106 
NMDF  107 
NMOF  108 
NMOF  109 
NMDF  110 
NMOF  111 
NMDF  112 
NMOF  113 
NMOF  11A 
NMOF  115 
NMOF  116 
NMOF  117 
NMOF  118 
NMOF  119 
NMDF  120 
NMOF  121 
NMOF  122 
NMOF  123 
NMOF  12A 
NMDF  125 
NMOF  126 
NMDF  127 
NMOF  128 
NMDF  129 
NMDF  130 
NMDF  131 
NMOF  132 
NMDF  133 
NMOF  13A 
NMDF  135 
NMDF  136 
NMDF  137 
NMDF  138 
NMOF  139 
NMDF  1  AO 
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NXMOOE  (SUBROUTINE) 


6/24/68 


- ABSTRACT - 


TITLE  -  NXMOOE 

PROGRAM  TO  PINO  A  POINT  WITH  COORDINATES  !« tFND, J*JFNO  IN  AN 
ARRAY  WITH  NON  COLUMNS  ANO  NVP  ROWS.  FOUND  POINT  CORRESPONDS 
TO  STARTING  POSITION  FOR  CALCULATION  OF  PHASE  VELOCITY  VERSUS 
FREQUENCY  OF  A  PARTICULAR  GUIDEO  MODE.  A  TABLE  OF  VALUES  OF 
THE  SIGN  OF  THE  NORMAL  MODE  DISPERSION  FUNCTION  IS  PRESUMED 
TO  BE  STOREO  AS  INMODEI IJ-1  )*NVP*I  I  FOR  EACH  POINT  U.J)  IN  THE 
ARRAY.  DIFFERENT  COLUMNS  (jl  CORRESPOND  TO  DIFFERENT  FREQUEN¬ 
CIES  WHILE  DIFFERENT  ROWS  (I)  CORRESPOND  TO  DIFFERENT  PHASE 
VELOCITIES.  THE  SEARCH  PROCEEDS  FROM  AN  INITIAL  POINT  UST.JST 
TO  SUCCESSIVE  ADJACENT  POINTS  HAVING  THE  SAME  INMOOE  AS  THE 
STARTING  POINT.  THE  DETERMINATION  CF  IIFND.JFNDI  IS  SUBJECT  TO 
THE  FOLLOWING  RULES. 

1.  IT  MUST  LIE  BELOW  OR  TO  THE  LEFT  OF  A  POINT  WITH 
OPPOSITE  INMODE 

2.  IF  MUST  BE  THE  HIGHEST  POINT  (LOWEST  I)  IN  THE  REGION 
SATISFYING  CONDITION  I 

3.  IF  MORE  THAN  1  POINT  SATISFY  1  AND  2,  THEN  THE  POINT 
DETERMINED  IS  THAT  FURTHEST  TO  THE  LEFT. 

4.  ONLY  POINTS  IN  THE  RECTANGLE  ARE  CCNSIOERED 

THE  COMPUTATION  ASSUMES  REGION  OF  SUCCESSIVELY  ADJACENT  POINTS 
HAVING  SAME  INMODE  IS  SIMPLY  CONNECTED  AND  THAT  PHASE  VELOCITY 
CURVES  BENO  DOWNWARDS.  I.E..  0(VPI/D(ON)  .LX.  0.  (THIS  CAN  BE 
THE  CASE  PROVIDING  V?  IS  GREATER  THAN  THE  MAXIMUM  WIND 
VELOCITY. |  IF  THE  POINT  IS  FOUND,  Ml,  IF  NOT  FOUND.  K*-l. 

LANGUAGE  -  FORTRAN  IV  (360.  REFERENCE  MANUAL  C28-E515-4) 

AUTHOR  -  A.  D.  PIERCE.  M.I.T.,  JUNE.I<f68 

- CALLING  SEQUENCE - 


SEE  SUBROUTINE  ALLMOO 

DIMENSION  INMODEI  1 1  (VARIABLE  DIMENSIONING) 

CALL  NXMOOEIIST.JST  .NOM.NVP.  INMOOE ,  IFND.JFND.X  ) 

NO  EXTERNAL  SUBROUTINES  ARE  REQUIREO 


NXMO 

1 

NXMD 

2 

NXMD 

3 

NXMD 

A 

NXMO 

5 

NXMD 

6 

NXMD 

7 

NXMO 

8 

NXMD 

9 

NXMO 

10 

NXMD 

11 

NXMO 

12 

NXMD 

13 

NXMD 

1A 

NXMD 

15 

NXMO 

16 

NXMD 

17 

NXMO 

18 

NXMO 

19 

NXMD 

20 

NXMD 

21 

NXMD 

22 

NXMO 

23 

NXMD 

2A 

NXMD 

25 

NXMO 

26 

NXMD 

27 

NXMD 

28 

NXMD 

29 

NXMD 

30 

NXMO 

31 

NXMD 

32 

NXMD 

33 

NXMD 

34 

NXMD 

35 

NXMD 

36 

NXMO 

37 

NXMO 

38 

NXMO 

39 

NXMD 

40 

NXMD 

41 

NXMD 

42 

NXMD 

43 

NXMD 

44 

NX  MO 

45 

NXMD 

46 

NXMD  AT 


- 

-  —  ARGUMENT  LIST - 

NXMD 

48 

NXMD 

49 

1ST 

1*4 

NO  INP 

NXMO 

50 

JST 

1*4 

NO  INP 

NXMD 

51 

NOM 

1*4 

NO  INP 

NXMD 

52 

NVP 

1*4 

NO  INP 

NXMD 

53 

INMODE 

1*4 

VAR  INP 

NXMO 

54 

IFNO 

1*4 

NO  OUT 

NXMD 

55 

JFNO 

1*4 

NO  OUT 

NXMD 

56 

K 

1*4 

NO  OUT 

NXMD 

57 

NXMO 

58 

COMMON  STORAGE  used 

NXMD 

59 

NXMD 

60 

-INPUTS - 

NXMD 

61 

NXMO 

62 

IS! 

*now 

INDEX  OF  START  POINT 

NXMD 

63 

JST 

•COLUMN  index  of  start  POINT 

NXMD 

64 

NOM 

•  NO. 

CF  COLUMNS  OF  ARRAY 

NXMO 

65 

NVP 

*N0. 

OF  ROWS  OF  ARRAY 

NXMO 

66 

INMOOE ( L 1 

•  SIGN  OF  NORMAi  MOOE  OISPERSION  FUNCTION,  I  IF  PCS., 

NXMO 

67 

-1 

IF  NEG.,  5  IF  IT  OCFSN'T  EXIST.  LET  1-L  MOO  NVP, 

NXMO 

68 

J*i 

L - I 1 /NVP* 1 .  INMOOE(l)  IS  SIGN  CF  NMOF  FOR 

NX  MO 

69 

OMEGA*CM(JI,  PHASE  VEL  .  •VP(I),  WHERE  C“1  J )  .GE .  0“(J 

NXMO 

70 
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*  c 

AND  VPU)  .IE.  VPII-I). 

NXMD 

71 

c 

KX  NO 

72 

;  c 

- OUTPUTS - 

NXMD 

73 

;  c 

NXMD 

T4 

c 

If NO  »ROW  INDEX  OF  FOUND  POINT 

NXMO 

75 

■  c 

Jf NO  -COLUMN  INDEX  OF  FOUND  POINT 

NXMD 

76 

c 

K  -FLAG  INDICATING  IF' POINT  I  IFND.JFNDI  IS  FOUND,  1  IF 

NXMD 

77 

c 

YES,  -1  IF  NO. 

NXMO 

78 

V 

NXMO 

79 

c 

- EXAMPLE - 

NXMD 

80 

c 

NXMO 

81 

c 

SUPPOSE  THE  ARRAY  OF  INMOOE  VALUES  IS  AS  SHOWN  BELOW 

NXMD 

82 

:  c 

NXMD 

83 

c 

it*******--  NVP*8»  NON«Il 

NXMO 

89 

r  c 

♦♦♦♦♦♦♦♦♦♦- 

NXMO 

85 

c 

5 - ♦♦♦♦  |F  IST»8,JST«5  THEN  IFND*3,JFNO*2,K*  1 

NXMO 

86 

c 

55 - ♦♦♦♦  IF  IST»2.JST*5  THEN  1 F  NO*  1 ,  JFN0*9,  K*1 

NXMD 

87 

c 

55 - ♦  IF  !ST*3,JST*7  THEN  1FND*3, JFND*2,K*-1 

NXMO 

88 

c 

55 - -  IF  IST*8,JST*2  THEN  K*-l 

NX*D 

89 

c 

55 - ♦  IF  IST»2,JST«11  THEN  K*-l 

NXMO 

90 

c 

55 - ♦ 

NXMO 

91 

c 

NXMO 

92 

c 

NXMO 

93 

c 

- PROGRAM  FOLLOWS  BELOW - 

NXMD 

95 

c 

NXMO 

95 

c 

NXMO 

96 

SUBROUTINE  NXMOOE ( I  ST , J  ST, NOP, NVP , INMODE , 1 FND, J  FNO,  K ) 

NXMD 

97 

c 

NXMO 

98 

DIMENSION  INMOUEU) 

NXMD 

99 

1  IF!  1ST  .GT.  NVP  .OR.  JST  .GT.  NOM)  GC  TO  IOO 

NXMO 

100 

10  •  INMOOE I ( JST-1 l*NVP*I  $ T 1 

NXMO 

101 

3  IF (  10  .NE.  1  .ANO.  10  .NE.  -11  GO  TO  100 

NXMO 

102 

c 

NXMO 

103 

c 

THE  POINT  (1ST,  JST)  LIES  IN  THE  ARRAY  ANO  THE  NORMAL  MODE  DISPERSION 

NXMD 

105 

c 

FUNCTION  EXISTS  AT  THIS  POINT  WITH  A  SIGN  IC.  WE  FIRST  GO  UP  UNTIL 

NX  MU 

105 

c 

A  DIFFERENT  INMODF  IS  ENCOUNTERED  OR  UNTIL  WE  REACH  I«1 

NXMO 

106 

I*  1ST 

NXMO 

107 

J*  JST 

NXMD 

108 

10  IF!  I  .EQ.  1)  GO  TO  30 

NXMD 

109 

1*1-1 

NXMO 

110 

ICHK-INMODEU  J-l  i*nvp*ii 

NXMO 

111 

IF (  ICHK  .EQ.  101  GO  TO  10 

NXMO 

112 

l»I*l 

NXMO 

113 

c 

NXMO 

115 

c 

THE  CURRENT  I  IS  NOT  1.  IF  THE  ICHK  OF  THE  POINT  ABOVE  IS  NCT  5,  WE 

NXMO 

115 

c 

MOVE  TO  THE  LEFT. 

NXMO 

116 

15  IF (  ICHK  .EQ.  5)  GO  TO  50 

NXMO 

117 

I F |  J  .EQ,  1)  GO  TC  20 

NXMO 

118 

J«J-1 

NXMD 

119 

ICHK*! NPCOE 1 1 J -1 l*NVP* 1 1 

NXMD 

12  C 

c 

NXMO 

121 

c 

IF  THE  ICHK- OF  THE  CONSIDERED  NEW  POINT  IS  10,  WE  TRY  TO  GO  HIGHER 

NXMD 

122 

c 

AGAIN. 

NXMD 

123 

IF (  ICHK  .EQ.  101  GO  TO  10 

NXMD 

125 

J*J*1 

NXMD 

125 

c 

NXMD 

126 

c 

WE  WAVE  -10  ABOVE  THE  CURRENT  POINT  ANO  ARE  EITHER  CN  THE  FAR  LEFT  OF 

NXMD 

127 

c 

THE  TABLE  OR  FLSF  HAVE  A  DIFFERENT  SIGN  AT  THE  POINT  TO  THE  LECT. 

NXMO 

128 

c 

THIS  IS  INTERPRETED  AS  SUCCESS. 

NXMD 

129 

20  K*  1 

NXMD 

130 

IFND«I 

NXMD 

131 

JF  NO*  J 

NXMO 

132 

rfturn 

NXMD 

133 

c 

NXMO 

135 

c 

THE  CONSIDERED  NtW  POINT  IS  ON  THE  FIRST  ROW,  WE  GO  TO  THE  RIGHT. 

NXMO 

135 

30  IF!  J  .EQ.  NOW)  GO  TO  60 

NXMD 

136 

J*J*l 

NXMD 

137 

ICHK* 1 N MODE ((J-l)*NVP*II 

NXMD 

138 

IF!  ICHK  .EQ.  101  GO  TO  30 

NXMQ 

139 

1 

J*  J-l 

NXMD 

150 
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c 

NXMD 

141 

c 

IF 

THF 

P'UNT 

AT  THE  RIGHT  OF 

CURRENT  <I,J) 

IS 

-10,  WE  HAVE  SUCCESS 

NXMD 

142 

IF 

(  ICHK 

.FQ.  -10)  GO  TO 

20 

NXMD 

143 

c 

NXMD 

144 

c 

IF 

IT 

IS  NCT 

-10.  WE  ALLOW  FOR  possibility 

OF 

INM00£S*5  IN  UPPER  RIGHT 

NXMD 

145 

C  FANO  CORNER  OR  IMP  TABLE  AND  TRY  TO  SKIRT  THF  SE  FIVES  BY  MOVING  EITHfR 

r.  dcwnwaros  cr  to  the  right. 

4C  IF  I  I  ,EQ.  NVP)  GO  TO  70 
1*1*1 

ICHK  =  |N«OOF((  J-1)«NVP*II 


THE  OTHER  PCSS- 


146 

147 
14? 

149 

150 


If  THIS  ICrtK  IS  *10  Wf  ARt  IN  A  POSITION  If  MAKE  A  TRV  Of  MOVING  TO 
THE  o  IGHT. 

44  !F(  ICHK  ,Nt.  10  1  GO  TO  80 

IF  WF  ARE  ON  THF  RIGHT  HA N!1  SIOE  OF  THE  TABLE  THE  DESIRED  POINT  CANNOT 
PE  FOUND.  WE  RETURN  WITH  K=-l 

45  IF<  J  .60.  NPMI  GO  TO  ICO 
J*J»1 

IT  IS  TAKEN  FOR  GRANTED  THAT  THE  1NM00E  OF  POINT  ABCVE  CURRENT  <!,J) 

IS  5  SINCE  IT  WAS  FOUNO  TO  BE  5  TO  THE  LEFT  AND  ABOVE.  THE  INMODE  OF 
THE  POINT  TO  THE  LEFT  IS  10.  IF  THE  NEW  INMODE  IS  *10,  HE  HAVE  TO  TRY 
TO  MOVE  FURTHfR  TO  THE  RIGHT. 

ICHK  =  IM>CDEUJ-l)*NVP*!l 
IF  (  ICHK  .EQ.  10  I  GO  TO  45 
J*J-1 


IF  THE  CURRENT  ICHK  IS  5,  WE  TRY  TC  GC  DrwN  AGAIN. 

IBILITY,  !C HK  =  -  10  INDICATES  SUCCESS 
IF  I  ICHK  .EO.  -10)  GO  TO  20 
GC  TO  40 

WE  CONTINUE  HFRE  FROM  15.  THE  POINT  ABCVE  THE  CURRENT  II.JI  HAS 
ICHK  .  EQ.  5.  THF  SITUATION  IS  SUCH  THAT  WE  CAN  RESUME  CALCULATION 
AT  44  AND  IRY  TO  MOVE  FURTHER  TC  THE  RIGHT. 

50  C.o  TO  45 

WE  CONTINUE  HERE  WITH  !*1,J*N3M  FROM  STATEMENT  30.  SINCE  WE  HAVE  NO 
PLACE  TO  GO  THE  SCARCH  IS  UNSUCCESSFUL.  Wt  RETURN  WITH  K«-l. 

6 C  GO  TC  100 

WE  CCNTINUE  HE“E  FROM  STATEMENT  40  WITH  I  .EO.  NVP  AND  INMPDE*5  M  THE 
RIGHT  OF  THE  CURRENT  <I,JI,  WE  RETURN  WITH  K«-l. 

70  GO  TC  ’  j 

WE  CONTINtlL  HERE  FROM  STATEMENT  44  WITH  THI  POINT  BELTW  HAVING 
ICHK  .NF.  10.  THF  POINT  AT  THE  RIGHT  HAS  ICHK  .EQ.  5.  WE  CANNOT 
SKIRT  THE  FIVES  ANC  HENCE  WE  RETURN  WITH  K*-l. 

BC  GO  TC  100 

Wt  CONTINUE  HIRE  from  I  ,3,45,60,70.  OR  BO.  THF  SEARCH  WAS  UNSUCCESSFUL 
100  K=-l 
RCTUPN 
END 
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- ABSTRACT - 


NXTPNT 

PROGRAM  Tc  FIND  THE  NEXT  POINT  II2.J2I  OF  AN  ARRAY  OF  NROW  ROWS 
AND  NCCl  COLUMNS  GIVEN  THF  PRECEDING  POINT  Ill.Jl).  POINT  Wilt 
BE  USED  IN  SUBSFOUFNT  CALCULATION  OF  A  PARTICULAR  POINT  CN  THE 
PHASE  VELOCITY  VERSUS  FREQUENCY  CURVE  OF  A  GIVEN  GUIOEO  MODE. 

A  TABLE  OF  VALUES  OF  THE  SIGN  OF  THE  NORMAL  KDE  DISPERSION 
FUNCTION  IS  PRESUMED  TO  BE  STORED  AS  1NMI t J- 1 ) *NVP* II  FOR  FACH 
POINT  (i,J)  IN  THE  ARRAY.  DIFFERENT  COLUMNS  (J»  CORRESPOND  TO 
DIFFERENT  FHEOUENC16S  WHILE  DIFFERENT  RCWS  III  CORRESPOND  TG 

different  phase  velocities,  successive  points  are  characterise 

BY  A  IYPE,  ITYP1  IS  TYPE  OF  Ill.Jll  WHILE  ITYP2  IS  TYPE  OF 
SECOND  POINT.  THE  TYPE  1NOEX  IS  1  IF  THE  POINT  DIRECTLY  ABOVE 
THE  CONSIDERED  POINT  HAS  AN  1NM  OF  OPPOSITE  SIGN.  IT  IS  2  IF 
THE  POINT  TO  THE  RIGHT  HAS  INM  OF  OPPOSITE  SIGN.  SINCE  BOTH 
POSSIBILITIES  CAN  OCCUR,  THE  OESIGNATEO  TYPt  INDEX  ITYP1  DENOTE 
THF  PREVIOUS  USE  OF  THE  POINT  (ll.Jl)  IN  COMPUTATION.  THE  VALU 
I TYP  2  W  It  L  IN  GENERAL  OEPENO  ON  THE  PREVIOUS  VALUE  ITYP1. 

THE  DERIVED  VALUES  OF  I2.J2.1TYP2  ARE  CALCULATED  AS  FOLLOWS. 

1.  IF  ITYP1  IS  1  AND  INM  OF  POINT  TO  RIGHT  IS  OPPOSITE 
OF  10*INM((J-n«NVP*II,  THEN  !2»  II,  J2«  Jl*  I  TYP2*?. 

2.  THE  POINT  (12, J2)  MUST  EITHER  BF  THE  DIRECTLY  ADJACEN 
POINT  TO  THF  RIGHT  l!l,Jl*lt,  THE  POI  NT  DIRECTLY  BFI  0 

1  11*1,  Jl  I,  OR  THE.  ADJACENT  POINT  TO  THE  LOWER  RIGHT 
(ll*l,Jl»l)  IF  CONDITION  1  DOES  NOT  HOLD 

1.  THE  CHOSEN  POINT  MUST  HAVE  THE  SAME  INM  AS  Ill.Jl) 

ANO  HAVE  A  POINT  EITHER  DIRECTLY  ABOVE  DR  DIRIOlLY  TO 
THE  RIGHT  WITH  OPPOSITE  INM. 

A.  IN  THE  EVENT  MORE  THAN  ONE  POINT  SATISFY  CONDITIONS 

2  AND  3,  PRIORITY  OF  SELECTION  IS  ID  THE  POINT  TP 
THE  RIGHT,  (21  THE  POINT  DIRECTLY  BELOW,  13)  THF  PPiN 
TO  THE  LOWER  RIGHT.  IF  THE  Sr  LEC  TED  POINT  SATISFIES 
CRITERIA  FOR  BOTH  I T  YP2« l  OR  2,  ITYP2.1  IS  RETUPNED. 
OTHERWISE,  THE  APPROPRIATE  ITYP’  IS  RFTURNEC  DEPEND  I N 
IN  WHICH  CRITERION  IS  SATISFIED. 


C.  THF  COMPUTATION  ASSUMES  REGION  OF  SUCCESSIVELY  ADJACENT  POINTS 

C  HAVING  SAME  inm  TO  BE  SIMPLY  CONNECT!!)  AND  THAT  PHASE  VELCC  ITY 

C  CURVES  3FND  DOWNWAROS,  I.E.,  OIVPl/D(CM|  .IT.  0.  IE  NEW  POINT 

C  IS  FUUNO,  K**l.  IF  IT  IS  NOT  EOUNO,  K*-l. 

C 

C  LANGUAGE  -  FORTRAN  IV  UNO,  REFERENCl  “ANUAt  C28- 4  515-41 
C  AUTHOR  -  'A.O.PIERCE  .  M.I.T.,  JUNE, 1168 

C 

C  - CALL  INC.  SEO.IENCE - 

C 

C  Str  SUBROUTINE  MCUFTR 

C  DIMFNSlSN  INM00EI1)  I  INMOOE  IS  SA“f  AS  INM) 

L  CALL  NX  IPNTItl  ,Jl  ,1TYPI  ,12,  J2,!TyP2,NRC'W,NCOL,  INMOOE, Kl 
C  I r (  X  ,EL •  -II  GO  SOMEWHERE 

C  LSI  l.',J2,|TYP2 

C 

C  NO  fxrrRNAI  LIBRARY  SUBROUTINES  ARE  RECUIRtn 

r 

C  - ARGUMtNT  LIST - 

C 


f 

ii 

NO 

INP 

r 

J! 

UA 

Nl) 

INP 

f 

I  TYP  1 

I  "A 

NO 

INP 

r 

12 

I  "A 

NO 

OUT 

c 

J? 

I  -A 

NU 

OU1 

c 

1  I  Y  P  ’ 

I>» 

NO 

nut 

NXPT 

1 

NXPT 

2 

NXPT 

3 

NXPT 

A 

NXPT 

S 

NXPT 

F> 

NXPT 

7 

NXPT 

8 

NXPT 

9 

NXPT 

ID 

NXPT 

11 

NXPT 

12 

NXPT 

13 

NXPT 

1A 

NXPT 

15 

NXPT 

16 

NXPT 

17 

NX»T 

IB 

NXPT 

19 

NXPT 

20 

NXPT 

21 

NXPT 

22 

NXPT 

23 

NX  PT 

2A 

NXPT 

25 

NXPT 

26 

NXPT 

27 

NXPT 

2B 

NXPT 

29 

NXPT 

00 

NXPT 

31 

NXPT 

32 

NXPT 

33 

NXPT 

X  A 

NXPT 

35 

NXPT 

36 

NXPT 

37 

NXPT 

38 

NXPT 

39 

NXPT 

AC 

NXPT 

A  1 

NXPT 

A2 

NXPT 

A3 

NXPT 

aa 

NXP  I 

A5 

NXPT 

A6 

NXPT 

A7 

NXPT 

A  B 

NXPT 

49 

NXPT 

50 

NXPT 

51 

NXPT 

52 

NXPT 

53 

NXPT 

5a 

NXPT 

55 

NXPT 

5h 

NXPT 

57 

NXPT 

5fl 

NXPT 

59 

NXPT 

60 

NXPT 

M 

NXPT 

6? 

NXP  T 

63 

NXPT 

6A 

NXPT 

65 

NXPT 

66 

NX  PT 

67 

NXPT 

6ft 

NXPT 

A9 

NXPT 
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l 

\ 


NROW 

1*4  NO  INP 

NXPT 

71 

NCOL 

1*4  NO  INP 

NXPT 

72 

INM 

1*5  VAR  INP 

NXPT 

73 

K 

1*4  NO  OUT 

NXPT 

74 

NXPT 

75 

ccmmcn 

STORAGE  USED 

NXPT 

76 

NXPT 

77 

- INPUTS - 

NXPT 

73 

NXPT 

79 

11 

=ROW  INDEX  OE  START  POINT 

NXPT 

80 

J2 

•COLUMN  INDEX  OF  START  POINT 

NXPT 

81 

itypi 

•TYPE  INDEX  OF  START  POINT,  1 

MEANS  POINT 

ABOVE  HAS 

NXPT 

32 

DIFFERENT  INM,  2  MEANS  POINT 

TO  RIGHT  HAS 

DIFFERENT 

NXPT 

83 

INM. 

NXPT 

84 

NROW 

•NUMBER  OF  ROWS  IN  ARRAY 

NXPT 

R5 

NCOL 

•NUMBER  OF  COLUMNS  IN  ARRAY 

NXPT 

«6 

INM 

•SIGN  OF  NORMAL  MODE  DISPERSION  FUNCTION, 

1  IE  PC'S., 

NXPT 

87 

-1  IF  NEG.,  5  IF  IT  UOESN'T 

EXIST.  It-  T  I 

*L  MOO  NVP, 

NXPT 

B3 

J= 1 L- I 1 /NVP* 1 ,  INMOOEILI  IS 

SIGN  CE  NMDF 

FCR 

NXPT 

89 

OMEGA-OMIJI,  PHASE  VEL.  *VP( 1 ) ,  WHERE  OM(J|  .GE.  CM(J 

NX  VT 

90 

AND  VP<  I)  ,LE.  VPII-U 

NXPT 

91 

NXPT 

92 

- OUTPUTS - 

I?  =  ROW  INOEX  OP  EQUNO  POINT 

J2  sCOLUMN  INDEX  CP  POUND  POINT 

1 TYP  2  .TYPE  INOEX  OF  FOUND  POINT 

K  •  FLAG  INDICATING  IF  POINT  112.J2I  IS  FOUND,  1  IF  YES, 

-1  IF  NO 

- EXAMPLE - 

SUPPOSE  THE  ARRAY  OF  INM  VALUES  IS  AS  SHOWN  BELOW 


♦ ♦♦♦♦♦* 

NROWS,  NCOL*l  1 

s - 

IE 

I1*3,J1*4,ITYP1«1 

then 

12*3,  J2*5, 

55 - 

55 . . 

ITYP2*1,K*1 

55 . ♦ 

IF 

11  =  1  * Jl*9, I TYP1*2 

THEN 

12*2, J2*10 

55 - - 

ITYP2* 1*K*  1 

55 . ♦ 

IF 

I 1*3, Jl*7, ITYP 1*1 
1TVP2»2,K*1 

then 

1 2 -B  ,  J2  =  7  , 

IE 

U«3,J1*11,ITYP1*1 

then 

K  —  1 

PROGRAM  FOLLOWS  BELOW 


SUBROUTINE  NXTPNTI 1 1 , Jl , I  TYPE , 1 2 , J2 , ITYP? , NROW , NCOL , INM.k ) 

C 

DIMENSION  INMUI 
IO*lNM(  (Jl-U«NROWMl! 

I  IE  I  10  ,fcO.  5  .OR.  II  ,GT,  NROW  .OR.  Jl  .C.E.  NCCL1  GO  TO  TO 
C 

C  IR  IS  INM  OF  POINT  TO  THE  RIGHT.  10  IS  INM  ">F  POINT  (II.JII. 

5  |R»  INMI  (  Jl  1  *NROW«I  1 1 

6  I F I  IK  .NE.  10  I  GO  TO  15 

7  IF!  II  ,CQ.  I  I  GO  TO  TO 
C 

C  I R  HAS  THE  SAME  SIGN  AS  10.  «E  CHECK  IRU  REPRESENTING  INM  CF  UPPER 
C  RIGHT  POINT.  IF  THIS  IS  -10.  THE  RIGHT  PnjNT  IS  The  DESIRED  POINT. 
C  If  IT  IS  NUT  -10,  WE  CANNOT  FINC  112, J? > . 

10  IP.I«INM((J1>*NR0W*I1-U 

11  I F (  IRU  .NE.  -10  I  GO  To  so 
I TYP?.l 


NXPT 

03 

NXPT 

94 

NXPT 

95 

NXPT 

6 

NXPT 

97 

NXPT 

98 

NXPT 

99 

NXPT 

100 

NXPT 

101 

NXPT 

102 

NXPT 

103 

NXPT 

104 

NXPT 

105 

NXPT 

106 

NXPT 

107 

NXPT 

108 

NXPT 

109 

NXPT 

110 

NXPT 

111 

NXPT 

112 

NXPT 

113 

NXPT 

114 

NXPT 

115 

NXPT 

116 

NXPT 

117 

NXPT 

118 

NXPT 

119 

NXPT 

120 

NXPT 

121 

NXPT 

122 

NXPT 

123 

NXPT 

124 

NXPT 

125 

NXPT 

126 

NXPT 

127 

NXP  T 

128 

NXPT 

129 

NXPT 

130 

NXP  T 

131 

NXPT 

1  32 

NXPT 

131 

NXPT 

134 

NXPT 

1  35 

NXPT 

t  30 

NXPT 

1  37 

NXP  I 

1  38 

12*11 

J2«J1M 


NX  PT  1*0 
KEPT  I  40 
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K*1 

NXPT 

141 

RETURN 

NXPT 

142 

c 

NXPT 

143 

c 

ME  ARRIVE  HERE  FROM  STATEMENT  6.  THE  POINT 

TO 

THE  RIGHT 

HAS  A 

NXPT 

144 

c 

DIFFERENT  INN.  IF  THIS  IS  -10  ANO  1TYP1*1, 

WE 

HAVE  112, 

J2I 

*111, Jl> 

NXPT 

145 

c 

MITH  I TYP2»2.  IF  THIS  IS  5,  ME  CANNOT  FIND 

I  1 7 , J2  )  • 

NXPT 

146 

15  IF  (  IR  .EO.  5  )  GO  TO  30 

NXPT 

147 

c 

NXPT 

148 

c 

IR*-10  AT  THIS  POINT 

NXPT 

149 

I F C  ITVP1  .NE.  1  )  GO  TO  25 

NXPT 

150 

12-11 

NXPT 

151 

J2*J1 

NXPT 

152 

ITYP2*2 

NXPT 

153 

K*1 

NXPT 

154 

RETURN 

NXPT 

155 

c 

NXPT 

156 

c 

IR  — 10,  ITYP1  IS  2.  ME  CONTINUE  FROM  STATEMENT  15.  IF 

WE 

ARE  ON  THE 

NXPT 

157 

c 

BOTTOM  ROM,  ME  CANNOT  F INO  NEM  POINT 

NXPT 

158 

25  IF  U1..EC.NR0MI  GO  TO  30 

NXPT 

159 

c 

NXPT 

160 

c 

ME  C0NS10ER  POINTS  BELOW  ANO  TO  LOMER  RIGHT 

NXPT 

161 

IO*INM{  IJ1-1  I*NR0W*I1*1  1 

NXPT 

162 

I0R*INM<<J1I*NROW*11*1) 

NXPT 

163 

c 

NXPT 

164 

c 

IF  I OR  IS  5,  ME  CANNOT  FIND  THE  NEM  POINT 

NXPT 

165 

26  IF!  IOR  .£0.  -5  f  GO  TO  30 

NXPT 

166 

c 

NXPT 

167 

c 

IF  IOR  IS  1C,  THE  NEXT  POINT  IS  THE  OR  POINT 

NXPT 

168 

27  IF(  IOR  .NE.  10  )  GO  TO  28 

NXPT 

169 

12*11*1 

NXPT 

170 

J  2* J l* 1 

NXPT 

171 

ITYP2.1 

NXPT 

172 

X  *  1 

NXPT 

173 

PETURN 

NXPT 

174 

c 

NXPT 

175 

c 

IR--IO,  ITYP1  IS  2.  IOR  IS  -10.  ME  CONTINUE 

FROM  STATEMENT 

27. 

NXPT 

176 

28  IF  (  10  .NE.  10  )  GO  TO  30 

NXPT 

177 

c 

NXPT 

178 

c 

THE  NEXT  POINT  IS  THE  OOMN  POINT 

NXPT 

179 

12*11*1 

NXPT 

180 

J2*  J 1 

NXPT 

181 

ITVP2.2 

NXPT 

182 

K*l 

NXPT 

183 

RETURN 

NXPT 

184 

c 

NXPT 

185 

c 

ME  ARRIVE  HERE  FROM  1,7,11,15,25,26.  THE  NEXT 

POINT  CANNOT 

BE  FC1IN0 

NXPT 

186 

30  K*-l 

NXPT 

187 

RETURN 

NXPT 

188 

ENO 

NXPT 

189 
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PAMPOE  ( SUBROUTINE!  7/30/68  PAHP  l 

PAHP  2 

- ABSTRACT -  PAHP  3 

PAHP  A 

TITLE  -  PAHPOE  PAHP  5 

PROGRAH  TO  COHPUTE  ANO  STORE.  AHPL ITUDE  FACTORS  AHPtJI  AND  FACT  PAHP  6 
AND  SCALING  FACTOR  ALAH.  THE  QUANTITY  AHPIJI  IS  THE  QUANTITY  PAHP  7 
AHPL TO  COHPUTEO  8Y  SUBROUTINE  NAHPOE  WHEN  THE  ANGULAR  FREQUENCY  PAHP  8 
IS  OHHOO(J)  ANO  THE  PHASE  VELOCITY  IS  VPHODIJl.  IT  CORRESPONDS  PAHP  9 
TO  THE  NHODE-TH  GUIDED  HOOE  WHEN  J  IS  BETWEEN  KST (NMODE 1  ANO  PAHP  10 
KFININHG0E1,  INCLUSIVE.  THE  QUANTITY  FACT  IS  DEPENOENT  ON  PAHP  11 

SOURCE  ALT ITUOE  ZSCRCE  ANO  OBSERVER  ALTITUDE  ZOBS  AND  IS  GIVEN  PAHP  12 

PAHP  13 

FACT  »  CONST *C I ( 1 1 *UED*<  P  SCRCE /l.E  61**0. 333333  PAHP  16 

PAHP  15 

WHERE  CONST* A. O/SQRTI 2*PI > i  C!<1)  IS  THE  SOUND  SPEED  AT  THE  PAHP  16 

GROUND,  (P  SCRCE/ 1 .661  IS  THE  AH81ENT  PRESSURE  AT  ZSCRCE  DIVIDED  PAHP  17 
BY  THE  AHBIENT  PRESSURE  AT  THE  GROUND.  THE  QUANTITY  UED  IS  PAHP  18 

THE  SQUARE  ROOT  OF  < AHBIENT  DENSITY  AT  ZOBSI/IAHBIENT  DENSITY  A  PAHP  19 
ZSCRCE  I.  THE  SCALING  FACTOR  ALAH  IS  GIVEN  BY  PAHP  20 

PAHP  21 

ALAH  *  1 1 . E6/P SCRCE 1** <0.333 333J*IC1(1I/CI(ISCRI  PAHP  22 

PAHP  23 

WHERE  CIIISCRI  IS  THE  SOUND  SPEED  AT  THE  SOURCE  ALTITUDE.  THE  PAHP  2A 
SIGNIFICANCE  OF  THESE  QUANTITIES  IS  EXPLAINED  IN  SUBROUTINE  PAHP  25 

PPAHP.  PAHP  26 

PAHP  27 

PROGRAH  NOTES  PAHP  28 

PAHP  29 

THE  PARAHETERS  SHAX.C  l  ,VXl  ,VYI  ,HI  DEFINING  THE  HULTILAYER  PAHP  30 
ATHOSPHERE  ARE  PRESUHEO  STOREO  IN  COHHON.  THE  AHBIENT  PAHP  31 
PRESSURES  ARE  COHPUTEO  BY  CALLING  SUBROUTINE  AK8NT  WHICH  PAHP  32 
ALSO  CONFUTES  THE  CHOICES  IOBS  AND  ISCR  OF  THE  LAYERS  PAHP  33 

IN  WHICH  OBSERVER  ANO  SOURCE,  RESPECTIVELY,  LIE.  PAHP  36 

PAHP  35 

IN  CONFUTING  AHBIENT  DENSITIES,  THE  IDEAL  GAS  LAW  PAHP  36 

RHO*  GAHHA»P/C**2  IS  USEO.  THUS  UED  *  IC 1 1 ISCR I /Cl I IOBSI I  PAHP  37 
SQRTIPOBS/P  SCRCE)  •  PAHP  38 


PAHP 

39 

IF  NPRNT  IS  POSITIVE,  A  HEADING  IS  PRINTED  FOR  A  TABLE 

PAHP 

60 

TO  BE  PRINTEO  BY  SUBROUTINE  NAHPOE.  SEE  FORHAT  STATEHENT 

PAHP 

61 

19  FOR  THE  DEFINITIONS  OF  TERHS  IN  THE  HEADING.  PH11 

PAHP 

62 

ANO  PHI2  SATISFY  THE  RESIDUAL  EQUATIONS  PRESENTED  IN  THE 

PAHP 

63 

ABSTRACT  OF  NAHPOE. 

PAHP 

66 

PAHP 

65 

LANGUAGE 

FORTRAN  IV  1360,  REFERENCE  HANUAL  C2B-6515-6I 

PAHP 

66 

PAHP 

67 

AUTHORS 

A. 0. PIERCE  ANO  J. POSEY,  H.I.T.,  JULY, 1968 

PAHP 

68 

PAHP 

69 

- CALLING  SEQUENCE - 

PAHP 

50 

PAHP 

51 

SEE  THE  MAI 

PROGRAH 

PAHP 

52 

OIHENSION 

CI(100>,VXI<100),VY!(100.  ,H1 1 100 ) 

PAHP 

53 

OIHENSION 

1  KST  lll.KFINIl),  OHHflO  1 1 1 ,  VPHODI 1 1 »  AHP|  11 

PAHP 

56 

THE  PROGRAH  USES  VARIABLE  DIHENSICINING  FOR  QUANTITIES  IN  ITS 

PAHP 

55 

arguhent  list 

• 

PAHP 

56 

COHHON  IHAX ,C1  ,VXI,VYl«HI  THESE  HUST  BE  STORi  0  IN  COHNQN) 

PAHP 

57 

CALL  PAHPOE I ZSCRCE, ZOBS , HOF NO, KST ,KFI N , OHHCDtV PPOD.AHP, ALAH, 

PAHP 

38 

1  FACT  ,TFETK,NPRNT  1 

PAHP 

59 

PAHP 

60 

- EXTERNAL  SUBROUTINES  REQUIRED - 

PAHP 

61 

PAHP 

62 

AHBNT,NAHPDE,T0TINT,HHHH,AAAA,USEAS,UPtNT,ELHT,8BBB,CAI,SAI 

PAHP 

63 

PAHP 

66 

- ARGUHENI  LIST - 

PAHP 

65 

PAHP 

66 

PROGRAH 

ZSCRCE 

R*6  ND  INP 

PAHP 

67 

PAMPDE 

ZOBS 

R*  4  NO  INP 

PAHP 

68 

HOFND 

1*6  NO  INP 

PAHP 

69 

PAGE 

KST 

1*6  VAR  INP 

PAHP 

70 

59 
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* 


c 

KFIN 

1*4 

VAR 

1NP 

c 

OMMOO 

R*4 

VAR 

INP 

c 

VPM00 

R»4 

VAR 

1NP 

c 

AMP 

R*4 

VAR 

OUT 

c 

ALAM 

R*4 

NO 

OUT 

c 

FACT 

R*4 

NO 

OUT 

c 

THETK 

R*4 

NO 

INP 

c 

NPRNT 

1*4 

NO 

INP 

c 

c 

COMMON  STORAGE 

USED 

c 

r 

COMMON  IMAX.CI , 

vx  i  ,vv  i 

.HI 

V 

c 

IMAX 

1*4 

NO 

INP 

c 

Cl 

R*4 

100 

INP 

c 

VXI 

R*4 

100 

INP 

c 

VY  I 

R*4 

100 

INP 

c 

HI 

R*4 

100 

INP 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 

c 

c 

r. 


- INPUTS - 

ZSCRCE  ^HEIGHT  IN  KM  OF  BURST  ABOVE  GROUND 

ZOBS  HEIGHT  IN  KM  OF  OBSERVER  ABOVE  GROUND 

MOFND  ‘IVJMBER  OF  GUIOEO  MODES  FOUND 

kstini  « index  of  first  tabulated  point  in  n-th  mode 

KFIN1NI  ‘INDEX  OF  LAST  TABULATED  PCINT  IN  N-TM  -OQE .  IN 
GENERAL.  KFIN<N)»KSTIN*11-1. 

OMMODINI  ‘  ARRAY  STORING  ANGULAR  FREQUENCY  ORCINATE  (RAC/SEC)  OF 

POINTS  ON  DISPERSION  CURVES.  THE  ABODE  MOOE  IS  STORE 
FOR  N  BETWEEN  KSTINMOOEI  AND  KFININMODE).  INCLUSIVE. 
VPKCOINI  ‘ARRAY  STORING  PHASE  VELOCITY  OROt  NAT  f  (KM/SEC)  OF 

POINTS  ON  DISPERSION  CURVES.  THE  ABODE  MODE  IS  STORE 
FOR  N  BETWEEN  KSTINMOOEI  ANO  KFININMODE), 

THETK  ‘DIRECTION  IN  RADIANS  TO  OBSERVER  FRCM  SOURCE,  RFCKONE 

COUNTER  CLOCKWISE  FROM  X  AXIS. 

NPP.NT  .PRINT  OPTION  INDICATOR  » SEE  NAM)  IN  MAIN  PROGRAM). 

IMAX  .NUMBER  OF  LAYERS  OF  FINITE  THICKNESS. 

CHI  I  ‘SOUND  SPEED  IN  KM/SEC  IN  1 -TH  LAYER 

VXIU)  ‘X  COMPONENT  OF  WIND  VELOCITY  IN  t-TH  LAYER  (KM/SECI 

VY til)  ‘Y  COMPONENT  OF  WIND  VELOCITY  IN  I-TH  LAYER  (KM/SECI 

Him  ‘THICKNESS  IN  KM  OF  I-TH  LAYER  OF  FINITE  THICKNESS 


—OUTPUTS - 


AMPIJI  ‘AMPLITUDE  FACTOR  FOR  GUIOED  WAVE  EXCITED  BY  POINT 

ENERGY  SOURCE.  UNITS  ARE  KM**I-1).  THE  J-TH  ELEMENT 
CORRESPONDS  TO  ANGULAR  FREQUENCY  OMMODIJ)  AND  PHASE 
VELOCITY  VPMOD(J).  THE  AMPLITUDE  FACTOR  IS  APPROPRIA 
TO  THE  NMOOE-TH  MODE  IF  J  ,GE .  KSTINMOOEI  AND  J  .LE. 
KFININMODE).  THE  AMPIJI  IS  THE  SAME  AS  AMPlTD  CCMPUT 
BY  SUBROUTINE  NAMPOE. 

AlAM  ‘ A  SCALING  FACTOR  OEPENOENT  CN  HEIGHT  OF  BURST,  EQUAL 

TO  CUBE  ROOT  OF  IPRFSSURE  AT  GROUND) /( PRESSURF  AT 
BURST  HEIGHT)  TIMES  (SCUND  SPEED  AT  GROUND  I / 1  SOUND 
SPEED  AT  BURST  HEIGHT). 

FACT  »A  GENERAL  AMPLITUDE  FACTOR  DEPENDENT  ON  BURST  HEIGHT 

AND  OBSERVER  HEIGHT.  A  PRECISE  DEFINITION  IS  GIVEN 
IN  THE  ABSTRACT. 


- PROGRAM  FOLLOWS  BELOW - 


SUBROUTINE  PAHPOE I ZSCRCE , ZOBS ,MOFNO ,KST , KE IN,0“MCD,V?M0C, AMP, ALAM, 
1  FACT.TMETK.NRRNT) 

C 

C  DIMENSION  ANO  COMMON  STATEMENTS 

DIMENSION  Cl  (100), VXH  IDO  I.VYII  lOOl.HUlOO) 

DIMENSION  KSTT 10 ) ,KF ! Nil 01 .OMMODI 100C ) .VPMOOIl )00 I , AMP ( 100C I 
COMMON  IMAX.CI .VXI.VYI ,H» 

C 

HOFND  *  MDFNO 

IF  INPRNT  .1  T.OI  GO  TO  ?0 


PAMP 

71 

PAMP 

72 

PAMP 

73 

PAMP 

74 

PAMP 

75 

PAMP 

76 

PAMP 

77 

PAMP 

78 

PAMP 

79 

PAMP 

80 

PAMP 

81 

PAMP 

82 

PAMP 

83 

PAMP 

84 

PAMP 

85 

PAMP 

86 

PAMP 

87 

PAMP 

88 

PAMP 

89 

RAMP 

90 

PAMP 

91 

PAMP 

92 

PAMP 

93 

PAMP 

94 

PAMP 

95 

PAMP 

96 

PAMP 

97 

PAMP 

98 

PAMP 

99 

PAMP 

100 

PAMP 

101 

PAMP 

10? 

PAMP 

103 

PAMP 

104 

PAMP 

105 

PAMP 

106 

PAMP 

107 

PAMP 

106 

PAMP 

109 

PAMP 

110 

FAMP 

111 

PAMP 

112 

PAMP 

113 

PAMP 

114 

PAMP 

115 

PAMP 

116 

PAMP 

117 

PAMP 

118 

PAMP 

119 

PAMP 

120 

PAMP 

121 

PAMP 

122 

PAMP 

123 

PAMP 

124 

PAMP 

125 

PAMP 

126 

PAMP 

127 

PAMP 

128 

PAMP 

129 

PAMP 

130 

PAMP 

131 

PAMP 

132 

PAM? 

133 

PAMP 

134 

PAMP 

135 

PAMP 

136 

PAMP 

137 

PAMP 

138 

PAMP 

139 

PAMP 

140 

-264- 


program 

PAMPDE 

PAGE 

60 


f  PRINT  HEADING  POP  PHU  AND  PHI2  PKOrilE  DATA  TO  eE  PRINTEO  BY  NAMPQE 
WRITE  (6,19) 

19  FORMAT  I 1H1 ,4 IX , 26HPHI 1  AND  PHI2  PROFILE  DATA  ///63HOIAP1PX  *  NC. 

1  OF  LAYER  FOR  WHICH  ABSIPHtll IAP1MX) I  IS  A  MAXIMUM/63H  IAP2HX  *  NP. 

2  OF  LAYER  FDR  WHICH  AB  SI  PH  12 (1 AP?MX ) I  IS  A  PAX  I RUH/42H  R1  *  PH 

311(1  API  MX  )  /  ABSIPHI2I  IAP2MX))'  /42H  R2  =  PHI2IIAP2MXI  /  ABSIPH 
412(1 AP2MX) )  /3/H  R3  *  PHI2I1I  /  ABS (PHI2I IAP2MX 1 1  /40HN2C1 

5=  NO.  OF  TIMES  PHI1  CHANGES  SIGN  /40H  N2C?  =  AC.  OF  TIMES  PHI2  C 
6HANGES  SIGN) 

20  CONTINUE 

C  DO  LOOP  TO  COMPUTE  AMP(J) 

DO  25  II* l.MOFND 
IF  INPRNT.LT. 01  GO  TO  23 
WRITE  It, 22)  II 

22  FORMAT  IIH  //////  1H  , 51X , 5HMQDE  ,12  III  1H  , 7X, 5HQMEGA , 7X, 5HVPHSF 
1 ,6X,6HI AP1MX, 10X.2HR1 ,«X,4HN2C1 ,6 X.6HI AP2MX , 10X ,2HR2, 8X, 4HNZC2, 10X 
2, 2HR3  /) 

23  J1*KST I  III 
J2*KFINI 1 1 ) 

DO  25  J-JI.J2 
K  =  J 

OMECA  *  CMMODIK) 

VPHSF  *  VPMODIK ) 

CALL  NAMPDF (ZSCRCE.ZOBS, OMEGA, VPHSE.THFTK, X.NPRNTI 
AMP ( K  )  *  X 
25  CONTINUE 
C  END  PF  DC  10C» 

C 

C  CCMPUT AT  I C  N  r F  AMBIENT  PRESSURES 

CALL  AM8NTI 7SCRCE,PSCRCE, ISCRI 
CALL  AMBNT I 70BS.POBS, IOBS ) 

C 

C  CCMPUT  AT  1 3N  OF  SORT (DENS ITY  RATIO) 

UbD  *  I  Cl  I  ISCRI  /Cl  I  IOBS) )  *  SORT ( POBS/ PSCRCE ) 

C 

C  COMPUTATION  OF  ALAM  AND  FACT 

ALAM*U.  E6/PSC  RCE  )•*  (0.  333333)  *  (Cl  III /OK  ISCRI  ) 

C  NOTE  THAT  CK1I  IS  SOUND  SPEEO  AT  THE  GROUND 
CONST  *  4. 0/SORTI2. 0*3. 141593) 

FACT  *  CONST*  (CIll)  *UED*  (P  SC  RCE/l. 66)  **(0.33333331) 

IF (NPRNT  .NE.  II  RETURN 
WRtTE  (6,311  ZSCRCE.ZOBS, FACT, ALAN 
31  FORMAT  1 1H1  ,  20X,  36HTABUL  ATION  OF  SOURCE  FREE  AMPLITUDES, 

1  23H  FROM  SUBROUTINE  PAMPDE  III  IX,  19HHEICHT  PF  BURST  =  , 

1  F8.3,  3H  KM  /  2 1 X ,  19HHFIGHT  CF  OBSERVER*,  F8.3,  3H  KM/ 

1  2 IX,  4HFACT,  14X,  1H*,  FB.3,  7H  KM/SFC/  21 X.4HALAM.14X,  1H* , 
l  F8.3) 

DO  50  II  *1 ,  MOF  ND 
WRITE  16,411  II 

41  FORMAT!  1H  III  1H  ,  5HM00F  ,  13/  1H  ,  20X, 5H0MFGA, 

1  15X,  51IVPHSF,  17X,  3HAMP) 

K1*KST (It) 

K2-KFIN  < 1 1 1 
DO  50  J*K I , K 2 

50  WRtTE  (6,51)  OMMOO  I J  I ,  VPMODI  J)  ,  AMP  I  J ) 

51  FORMAT  I  IH  ,4X,F2O.5,F20.5,F20.8l 
RETURN 

END 


PAMP 

141 

PAMP 

142 

FAMP 

143 

PAMP 

144 

PAMP 

145 

PAMP 

146 

PAMP 

147 

PAMP 

148 

PAMP 

149 

PAMP 

150 

PAMP 

151 

PAMP 

152 

PAMP 

153 

PAMP 

154 

PAMP 

155 

PAMP 

156 

PAMP 

157 

PAMP 

158 

PAMP 

159 

FAMP 

160 

PAMP 

161 

PAMP 

162 

PAMP 

163 

PAMP 

164 

PAMP 

165 

PAMP 

166 

PAMP 

167 

PAMP 

168 

PAMP 

169 

PAMP 

170 

PAMP 

171 

PAMP 

172 

PAMP 

173 

PAMP 

174 

PAMP 

175 

PAMP 

176 

PAMP 

177 

PAMP 

178 

PAMP 

179 

PAMP 

180 

PAMP 

181 

PAMP 

182 

PAMP 

1B3 

PAMP 

184 

PAMP 

185 

PAMP 

186 

PAMP 

187 

PAMP 

188 

PAMP 

185 

PAMP 

190 

PAMP 

1«1 

PAMP 

192 

PAMP 

193 

PAMP 

194 

PAMP 

195 

PAMP 

196 

PAMP 

1«7 

PAMP 

198 

PRPO.RAM 

PAMPOE 
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r  PHASE  (SUBROUTINE!  3/ 15/68 


- AHSTPAC1 - 

TITLE  -  PHASE 

CONVERSION  OF  A  COMPLEX  NUMBER  FROM  RECTANGULAR  FORM  TO  POLAR 
FORM 

GIVEN  T NO  REAL  NUMBERS  RR  ANO  Rl,  A  MAGMTUOE  P  ANO  AN 
ancle  phi  arf  computeo  such  that 

RR  *  i*R[  a  R  »  EXP(  t*PHl  ) 

WHERE  I  *  l-ll««0.5  . 

LANGUAGE  -  FORTRAN  IV  (360.  REFERENCE  MANUAL  C2B-E515-A) 

AUTHORS  -  A.C.PIFRCE  ANO  J. POSEY.  M.I.T.,  AUGUST, laxR 


- USAGE - 

NO  SUBROUTINES  ARE  CALL  EU 
FORTRAN  USAGE 

CALL  PHASE  I RR  »R ! • R, PHI  I 
INPUTS 

RR  REAL  PART  OF  THE  COMPLEX  NU“TfP  BEING  CCNVERTEC 

P  •  A 

RI  IMAGINARY  PART  OF  LONPlEX  NUMBER  BEING  CONVERTED 

R«A 

Outputs 

R  MAGNITUDE  of  The  complex  number 

R*A 

PHI  PHASE  OF  THE  complex  NUMBER  (RADIANS!  (- P  I  .L  T  .PH  I  .LE  .  PI  I 

R  *A 


- EXAMPLES - 

call  PHASE(0.0,1.0,R,PHII 

R  *  1,0  ANO  PH!  •  1,370706  AKE  RETURNED 
CALL  PHASEIl.O.-l.O.R.PH!) 

P  =  I.AIA21A  AND  PHI  •  -C.  TBMRr-'  ARE  RETURNED 


- PROGRAM  FOLLOWS  BEIOW - 


SUBROUTINE  PHASE  I RR , R I , R , PHI ) 

0«ABS(RR l»ABS(R I  I 
IFIU-I.E-2S1  1,1, to 

1  R.t.q 
PHI  .0 
RF  TURN 
30  ARaOR/O 

a  i ,  i>  i  /  ; 

A  , SQR  T  (  A'J*a  ’»A  |»*2  I 


PH  AS 

I 

PH/  S 

? 

PHAS 

3 

PHAS 

A 

PHAS 

5 

PHAS 

b 

PHAS 

7 

PHAS 

3 

PHAS 

B 

PHAS 

10 

PHAS 

11 

PHAS 

12 

PHAS 

13 

PHAS 

1  A 

PHAS 

13 

PHAS 

lb 

PHAS 

17 

PHAS 

!8 

PHAS 

IB 

PHAS 

20 

PHAS 

21 

PHAS 

22 

PHAS 

23 

PHAS 

2A 

PHAS 

25 

PHAS 

2b 

PHAS 

27 

PHAS 

2B 

PHAS 

2B 

PHAS 

30 

PHAS 

31 

PHAS 

32 

PHAS 

33 

PHAS 

3A 

PHAS 

35 

PHAS 

’b 

PHAS 

37 

PHAS 

38 

PHAS 

3B 

PHAS 

AO 

PHAS 

A  1 

PHAS 

A? 

PHAS 

A3 

PHAS 

AA 

PHAS 

A5 

PHAS 

A  b 

PHAS 

A7 

PHAS 

AB 

PHAS 

AB 

PHAS 

50 

PHAS 

51 

PHAS 

5? 

PHAS 

53 

PHAS 

5A 

PHAS 

55 

PHAS 

5b 

PHAS 

57 

PHAS 

53 

PHAS 

50 

PHAS 

b  0 

PHAS 

bl 

PHAS 

b? 

PHAS 

b3 

PHAS 

bA 

PHAS 

b5 

PHAS 

bb 

RRCT.PAM 

PHAS 

67 

PHASF 

PMS 

be 

PHAS 

5B 

PAGE 

PHAS 

70 

52 
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R*Q«A 

PHI*ARSlN(A8SIAtt/A) 

I F ( RR )  59,60,60 
50  1F(R|I  300,300.200 
60  IF(RI)  690,600,100 
ICO  PHl'PHI 
RETURN 

200  PHI*3. 1615927-PHI 
RETURN 

300  PM*PH!-3. 1615977 
RETURN 

600  PHIS-PHI 
RETURN 
ENO 


PROGRAM 

PHASC 


PHAS  71 
PHAS  72 
PHAS  73 
PHAS  76 
PHAS  75 
PHAS  76 
PHAS  77 
PHAS  78 
PHAS  79 
PHAS  80 
PHAS  Bl 
PHAS  82 
PHAS  83 
PHAS  86 
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PPAUP  tSUBRQUT  INE I 


- ABSTRACT - 

TITLE  -  PPAMP 

PROGRAM  TO  COMPUTE  AND  STORE  .A MPLl  TUDE  ARRAY  AMPLTD  AND  PHASE 
ARRAY  PHAS1  FOR  GUIDEO  RAVES  EXCITED  BY  A  POINT  ENERGY  SOURCE 
WITH  TIME  OFPENDENCE  CORRESPONDING  TO  A  NUCLEAR  EXPLOSION  CF 
FNE»GY  DENOTEC  PY  YIELD  IN  KT.  THE  VALUES  FCLND  ARE  TO  RF 
SUBSEQUENTLY  USED  BY  TMPT  ACCORDING  TO  THE  RELATION 

(PRESSURE  IN  OYNES/CM**?  FOR  A  GIVEN  MODE l»S0RT ( Rl 

*  INTEGRAL  OVCR  OMEGA  OF  AMPL TO*COS IOMEGA* ( T-R/VPI*FHASQ) 

THE  QUANTITIES  A-PLTU  AND  PHASQ  ARE  BOTH  DEPENDENT  ON  ANGULAR 
FREQUENCY  AND  ARE  DIFFERENT  FOR  DIFFERENT  MODES. 

PROGRAM  NOTES 


IN  THE  FORMULATION  FOR  A  POINT  ENERGY  SOURCE.  THE  ENERGY 
EQUATION  IS  MR  I T TEN 

OP/OT  -  ( C»*2 1 OIR HO  l/OT  *  4«PI  »C.  **2*F  <  T)  *  (DELTA  FNCTN  ) 

AN  EXPRESSION  FOR  FIT)  IS 

F  IT  I  *(  <L**2I/CS  )*POS*(INTEGRAl  OVER  X  FROM  0  TO  CS»T/L 
OF  UNIVERSAL  FUNCTION  FUNIV(Xl) 

WITH  L*IENERGY/P0S)»*(l/3)  AND  POS.CS  REPRESENTING  PRGSSU 
AND  SOUND  SPEEO  AT  THE  SOURCE.  IF  F1KTITI  IS  THE  PUESSUR 
AT  A  DISTANCE  OF  1  KM  FRuM  A  1  KT  EXPLOSION  AT  SEA  LEVEL 
ANO  MITH  TIME  ORIGIN  CORRESPONDING  TO  BLAST  WAVE  ONSET, 
THEN 

FUN  IV  (X  I*  (  (  L  1*P0 1  !*•  (  -It  >  »F  IK  T(  L  1*X/C  1 1 

THE  FOURIER  TRANSFORM  OF  F(T1  IS  ACCORDINGLY  FOUND  TO  BE 

GICMEGA )*  < 1/(2*PI tl«(Y**( P/A  It* (Cl/CSt* IPOS/PC l)»*ll/3) 

*  ( I /( - l* OMEGA) 1 *FTMAG( OMERATI *FXP 1 1 *FTPHSE IOMERAT ) I 

WHERE  Y  IS  YIELD  IN  KT,  I*SQRT(-U,  AND  CMERAT*ALAM* 
OMEGA*Y**( 1/3).  The  FUNCTIONS  FTMAG  AND  FTPHSE  ARE  AS 
COMPUTED  BY  SUBROUTINE  SOURCE.  THE  QIJANT IYY  ALAM  IS 
(Cl/CS)*(P0l/P0S)**l/3  AS  COMPUTEO  BY  SUBROUTINE 
PAMPOE. 

A  LENGTHY  OERIVATION  NOT  GIVEN  HERE  INCICATFS  THAT 
A“PLTO*EXP(-I*PHASO) 

*  -4«SQRT1K)«G(0MEGA  l»CS»UEO*SQRT(  2  P  I  )*AMP 
*CXP(-l*PI/4| 

WHERE  AMP  IS  IHF  SAME  AS  THE  AMPLTO  COMPUTED  BY  NAMPOE  AN 
WHERI  UFO  IS  THE  DENSITY  FACTOR  IC  S/COBS) ‘SORT  (  PSC  RCE /POB 
COMPUTED  IN  SUBROUTINE  PAMPOE .  INSERTING  G  (OMEGA )  INTO 
THE  ABOVE,  ME  IDENTIFY 

PHASQ  *(3/4l*PI  -  FTPHSE(OMFRAT) 

AMPLTD*F ACT* AM P*(Y**(2/3)l*FTMAGIOM£RAT)*SQRTIK) /OMEGA 

WHERE-  FACT  IS  4/SQRT(2«Pl l«C 1*UE0*IP$/PI )•*( 1/3)  AND  IS 
COMPUTED  BY  SUBROUTINE  PAMPOC. 

THE  QUANTITIES  FACT,  ALA  w,  ANU  AMP  ARE  IN  THE  INPUT  LIST 
OF  THE  SUBROUTINE.  NUTF  Thai  these  ARE  YIELD  INDEPENDENT 


PPAK 

1 

PPAM 

? 

PPAN 

3 

PPAM 

A 

PPAM 

5 

PPAM 

A 

PPAM 

7 

PPAM 

fi 

PPAM 

9 

PPAM 

10 

PPAM 

ti 

PPAM 

12 

PPAM 

13 

PPAM 

14 

PPAM 

IS 

PPAM 

IF 

PPAM 

17 

PPAM 

1R 

PPAM 

19 

PPAM 

20 

PPAM 

21 

PPAM 

2? 

PPAM 

23 

PPAM 

24 

PPAM 

25 

PPAM 

26 

PPAM 

27 

PPAM 

28 

PPAM 

29 

PPAM 

30 

PPAM 

31 

PPAM 

32 

PPAM 

33 

PPAM 

34 

PPAM 

35 

PPAM 

36 

PPAM 

37 

PPAM 

38 

PPAM 

39 

PPAM 

40 

PPAM 

41 

PPAM 

42 

PPAM 

43 

PPAM 

44 

PPAM 

45 

PPAM 

46 

FPAM 

47 

PPAM 

48 

PPAM 

49 

PPAM 

50 

PPAM 

51 

PPAM 

52 

PPAM 

53 

PPAM 

54 

PPAM 

55 

PPAM 

46 

PPAM 

57 

PPAM 

58 

PPAM 

59 

PPAM 

60 

PPAM 

61 

PPAM 

62 

PPAM 

63 

PPAM 

64 

PPAM 

65 

PPAM 

66 

PROGRAM 

PPAM 

67 

PPAMP 

PPAM 

6" 

PPAM 

69 

PAG* 

PPAM 

70 

t>4 
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if 


to  : 

t 


JHE  SCHEME  OF  STORAGE  FOR  AMPLTDCJJ  AN  I!  PHASQI J )  ISVTHf- 
SAME  AS  FOR-'OMMODI  Jf  AND  VP-MODUI.  SEE  SUBROUTINE  At l MOO 

LANGUAGE  ••  FORTRAN- IV  nsOV'REFERENCE  MANUAL' ■  C28 rbS  15-41: 

AUTHORS  -  A.O.P1CRCC  ANO  J.P0SEY,  M.j.T.,  JULY, 1568 

r-— CALLING  SEOUCNCF— — 

SET,  THE  MAIN.  PROGRAM 

OIMENSICN  KSTJ1  J,KF!N<  U.OMMODUi.VPMOCUl.AMPt  II 
OIMENSICN  AMPLfOIl  I  , PHASQI  1) 

THESE  QUANTITIES  MUST  BE  DIMENSIONED.  THE  PROGRAM’- USES  VAR fAHLfc 
DIMENSIONING.  F/>R  ACTUAL.  DIMENSIONS  ASSIGNED,  SEE  THE  MAIN  PROGRAM. 
CALL  PR  AMP  I  Y1  ELOtMOFNO*  KSTiKF  I  N.OMMCO.VPMC'D  *  AMP ,  ALAR«  FACT  t 
I  amply  df  PHAsyi 

— --EXTERNAL  SUBROUTINES  W  QtURED-.— - 
SOURCE;-  PHASE  IPHASE  IS  CALLED  BY  SOURCE  I 


- •ARGUMENT  LIST— — 


VIELO 

MOFNO 

KST 

KF1N 

0“M0D 

VPMOO 

AMP 

AL  AM 

FACT 

AMPLI'D, 

PH  A  SC 


R*4 
1*4 
I  *4 
1*4 

■R*4 

R*4 

R«4 

R*4 

R*4 

R*4 

R'4 


Nl» 

NO 

VAR 

VAR 

VAR 

VAR 

VAR 

NO 

•NO 

VAR 

■VAR 


INP 

INP 

INP 

INP 

INP 

■INP 

INP 

.INP' 

INP 

OUT 

OUT 


NO  CCMMCN  STORAGE  IS  USED 

- - INPUTS— 

VIELfi  *ENERGY" RELEASE  OF  EXPLOSION  IN'EOUIVALENT  KlLOTONS  OF 

C  TNT,  1  ,KT  *  4.2E19  ERGS. 

C  MOFNII  ^NUMBER  (IF  MOOES  FOUND  IN  PREVIOUS  TABULATION  OF 

C  DISPERSION  CURVES. 

C  sKST(N)  *  INDEX-  OF  FIRST  -JAHUL-ATEO-.POINT  :IN.-N-TH*MCOE. 

C,  KF  ININ  1  *  INOE X  OF  LAST  TABULATED  POINT  IN  N-TH  MODE.  IN 

C  GENERAL,  KF  IN(N)*KST  <N*U-t. 

C  OM MOO  INI  .ARRAY  STOKING  ANGULAR  FREQUENCY  ORCINATE  TF  POINTS 

C  ON  DISPERSION  CURVES.  THE  NMODE  MCOE  IS  STEREO  FOR 

C  N  BETWEEN  KST (NMODE T  ANO  KF  ININMDOE I . 

C  VPMI1DIM I  .ARRAY  STORING  PHASE  VELOCITY  CRDI NAT E  OF  PCINTS  CN 

C  .  DISPERSION  CURVES.  THE  NMODE  MflUF  IS  STORED  FPF 

C  N * BGTWEF N  KSTINHOOEI  ANO  KF INI NMODE I • 

C  AMPIN)  .AMPLITUDE  FACTOR  INCECENDCNT  CF  YIELD  COMPUTEO  BY 

C  SUBROUT  INC  P  AMP OF  CORRESPONDING  TO  ANGULAR  FREQUENCY 

C  OMMOOIN)  AND  PHASE  VELOCITY  VPMOOIM. 

C  Al  AM1  .  A  SCALING  FACTUR  OEPENOFNT  ON  HEIGHT  OF  BURST,  IQUAl 

C  NJ  CUBE  ROOT  (IF  (PRESSlJPf  AT  GROUND  1/ 1 PRESSURE  Al 

C  BURST  HEIGHT  I  TIMES  ISCUNO  SPEED  AT  GROUND  I /SOUND 

C  SPEED  Al  BURST  HFIGHTI. 

C  FACT  *-A  GENERAL  AMPLITUDE  FACTUR  DEPENDENT  ON  BURST  HEIGHT 

C  AND  OBSERVER  HEIGHT.  A  PRECISE  DEFINITION  IS  GIVEN 

C  IN  THE  LISTING  F  SUBRUUT INC  PAMPDE. 

C 

C  - OUTPUTS - 

C. 

C  AMPLT  C  INI  .AMPLITUDE  FACTOR  R  EPRl  SENT  ING  TOTAL  MAGNITUDE  OF 

C  FOURIER  TRANSFORM  OF  THF  CONTRIBUTION  TO  THL  WAVFFOKM 

C  IF  A  SINGIF  GUIDED  MUUF  AT  FREQUENCY  <)MMOO(N|.  IT 

C  UFPrESFNTS  THE  AMPLITUDE  OF  THE  NMPOF-TH  «OOF  IF  N  IS 


7,1 

72 

73 

74 

75 

76 
7,7 
78 
70 
BO 
81 
■8? 

83 

84 

85 

86 
8> 
881 
B» 

*>c 

01 

-93, 

94 

95 

96 

97 
08 
99 


PPAM' 

PPAM 
PPAM- 
PPAM* 
-VRAM 
PPAM 
PPAM 
ppa'h 

PPAM 
PPAM; 

PPAM 
PPAM. 

PPAM 
PPAM 
PPAM* 

PPAJM 
PPAM 
PPAM 
PPAMV 
PPAM; 

PPAM 
PPAM 
?PAM 
PPAM 
PPAM 
PPAM 
PPAM, 

PPAM 
PPAM 
PP,AM4I  CO 
PPAM  101 
PPAM  =10? 
PPAM  103 
PPAM  104 
PPAM  10*5 
PPAM  106 
PPAM- 107 
PPAM  108 
PPAM  109 
PPAM  110 
PPAMnil 

PPAM  112 
PPAM  113 
PPAM  114 
-PPAM  .11-5. 
PPAM  116 
PPAM  117 
PPAM  118 
PPAM  119 
PPAM  1?0 
PRAM  121 
PPAM  122 
PPAM  123 
PPAM  124 
PPAM  125 
PP,AF|  126 
PPAM  127 
PPAM  128 
PPAM  120 
PPAM  *130 
PPAM  131 
PPAM  132 
PPA“  133 
PPAM  134 
PPAM  135 
PPAM  136 
PPAM  137 
PPAM  13R 
PPAM  | \9 
PPAM  | 40 


PROGRAM 

PPA“P 

P  AGF 
68 


269 


c 

f; 

c 

c 

r. 

,c 

*c 

<r 

c 


ntIWFKN  <STIN“GOc>,  AND  KF1MN»CD6>,  INCLUSIVE.  TH 
»#eCISf  DfiV  Wriir.N-  tv  6!vl  N  1N  IHF  ABSTRACT. 

WlA'VJtNI  *PHASC  LAG  At  FRfcOUENCV  ohmCOCN);  i-Op  NMODc-Tp*HliOC  WMF 
•j  I  S  HE  !  KST  I NHODF I  AM)  KFINI.NHLOO  ,  INCLUSIVE. 

THE  4NTEGRAN')-  IS  UNDERSTOOD  TO  HAVE  THE  F  ( RH] 

•*Vptr  o  «cos  i  o't»oo«  t  r;t  m  F-o  i  s  r  anc  k/v  oto  i ♦ pha  so i . 

i-l-i-PROGRAR  FOLLOWS  itEI.OW--.— 

SURROUI  1NE  PPAMPI VI  ELO.MOFND.KSt  .Kf  IN.DHHOr.  .VPHCO.AHP.A  LAR.FAC  T, 

■■I'-ARpLtO, PUASUI 


C  DIHENSKN.  STATEMENT  S  USING  VAR  IAB1  E  DIMENSIONING 

U I  REMS!  ON  KSK  I)  .KFHI  nVCROfaui  •yPRODU)  ..ARP!  l> 
DIMENSION  ANPITDIH.PHASOU  I 

< 

3*  I V, I  ELI)  I  *"1  0.333333)' 

ALAMP«C*ALAM 

r. 

C  START  OF  DO  LOOP.  II  IS  WOl-  NUMBER 
1)0'  20  11=1  .MDF.N!I. 

K1=KSI  I'll) 

K2.=KFIN(.l  I) 


0 

DO  20  J=K1,K2 

C  CCMPIJT.iT  ICR  CF  SCALED  FREQUENCY  UMfRAT* 
•T«6RAT»C''P00(J)«Al'A‘ll> 

-f,  C(-MPUTATI  ON  OR  $QRtIKI 

AKAY*SGPT  UJRR’lillJ  l/VPMOOI J  Tl 

•C.  ’ 

f  Al  L  SOUPC  £  (‘'MtRA  t.FTMAG.FTPHSE  ,ORAG,  DEHSE  I  \ 

AHPLTCI  JI  =  I.3r«7.)  ‘  FAr.T*FTMAG*AMP  0JI-<AXAY/0MM0,M  J  I 

20  PHAS0«J)=.TS*-').I4I59-FTPMSe 
Tf.  FNli  OF  in  LOOP 
c 


-Rf-TiiRN 


END 


<PpAH  141 
VpA*  142 
PPAH  141 
PP.AM  144 
PPA“  445, 
PPA»  >.46 
PP  AN  147 
PPAM448 
PPA«  149' 
PPA“  ISO 
PPAH  151 
-PP  AH  152" 
PPA»  15.1 
PPAH  154 
PPAM“155 
PfJAH  456 
PP*A«,  157' 
PPAH  158 
PPAH  159* 
PPAM»160 
PPA«  161 
PPAH  162 
PPAH- 163 
PpAW  164 
PPA«  165, 
PPAM  166 
PPAH  167 
PPAH  1 6B 
PPAH  169 
PPAH  170 
PPAH  171 
PPAH  172 
PPAH  173 
PPAH  174 
OPAH  175 
PPAH  176 
PPAH  177 


PRO(-,P.A« 

0  Ar.a 

fcS 
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-C 

PP.ATMO 

isurrautine)  a/i/6.s 

PRTM 

1 

c 

PPTM- 

2 

c 

-- — AASTPAC  T— — 

PPTM 

3 

c 

■  PR'iTH' 

A: 

c 

title  -p.raimo 

,PPT*i 

5 

c 

PROGRAM  T'I  PP  INT  JJUT  PARAMETERS  DEFINING  THE  MODEL 

MliL:TILAYLP 

-PPTM 

•6 

c 

ATMOSPHERF.;  A  LISTING  IS 'PKIHTEO  W  L  AYfcR  'NUMRrR  , 

height:  (IF 

:PP.TM' 

7 

,c 

LAY £K  BOTTOM",  HE 1GMT  OF  LAYFR  TOP,  1  AYbii  THICKNESS 

,  SCUAfO  SPEED; 

PPTM 

'R‘ 

c 

ANO 

OF  X  ANDY  COMPONENTS  OF  WIND  VELOCITY.. 

PPTM 

9 

c 

PPTM 

10 

r, 

LANGUAGE 

-  FORTRAN  IV  (3SC,  REFER ENCC  MANUAL  C2S-.6515-A), 

PP.TM 

i  i 

c 

PPTM 

12 

c 

AUTHORS 

-  A. 0. PIERCE  ‘AND  J. POSEY,  M.I.T.,  AUGUST,  196.3 

'PPTM 

IV 

c 

PPT.M. 

■IA» 

r. 

----CALLING  SEQUENCE—:-- 

Pf.TM 

<15- 

c 

PPTM 

16‘ 

c 

SFF  THC  PAU  PRCGKAM 

PP  M 

17; 

•c 

0 IMENS  ION  G  I Cl CO) ,  VX  I 1  100 )  ,  VYI  I  ioo  1  ,HI  ( 1  oc» 

PPTM 

IS 

c 

C.C#*nN 

MAX, Cl, VXI, VYI, HI  ITHCSC  HOST'  BE  IN  COMMON) 

PPM 

•19 

c 

CALL  P«AT«') 

PPTM 

70 

c 

PPTM 

21 

c 

— — EXTERNAI-  SUHRCUl  INIS  RLOUIREO— -- 

PRTM 

22 

c 

PPTM 

,23 

c 

NO  EXTERNAL 

.  SIJRROlIT INES  APF.  REQUIRED. 

PRTM 

2A 

c 

PRTM 

25 

fr 

- ARGUMENT  1 1ST— A- 

PPTM 

26 

C 

PPTM 

?T 

c 

CC*M0N  STORAGE  IJSE:) 

PPTM 

2S 

c 

COMMON 

MAX, Cl, VXI, VY|, HI 

PPTM 

29 

f. 

P»TM 

30 

c 

MAX 

!*•,  Nil  IMP 

PRTM 

31 

c 

Cl 

R-’A  100  INP 

PPTM 

32 

c 

VX! 

R'A  100  -INP 

PRTM 

33 

r. 

VYI 

R'A  100  INP 

PPTM 

3A 

c 

HI 

R"A  100  INP 

PRTM 

•35 

r. 

PPTM 

36 

c 

— —INPUTS— — 

PRTM 

37 

r. 

PRTM 

35 

c 

MAX 

•  NUKDfc't  OF  l AY CKS-OF  F.INITT  THICKNESS 

PRTM 

39 

c 

Cllll 

•  sound  spefd  in  im/sec  in  i-th  lav^r 

PPM 

A« 

c 

VXI I II 

«X  COvpr.Nr.NT  OF  HIND  VELOCITY  IN  t-TH  LAYER  IXM/SECI 

PPTM 

A) 

6 

tfvtin 

*Y  COMPONENT  OF  WIND  VFLCC ITY  tN  l -TH  LAVER  CKM/SECI 

-PRTM 

62 

.f 

huh 

•THICKNESS  IN  KM  OF  1-T'H‘LAYER  OF  FINITE 

thickness 

fpt  “ 

A3 

c. 

PRTM 

AA 

c 

----OUTPUTS'—— 

PPT." 

*5 

c 

PFM 

A6 

C  THf  ONLY  OUTPUT  IS  A  PRINTOUT; 

PRIM 

A7 

C. 

PPTM 

AS 

r. 

- - EXAMPLE - 

PPT“ 

A  9 

C 

PFTM 

50 

f. 

MOOEl  ATMUSPHEPE  (If  10  LAYERS  I  HIP  Ilf  NF.W  PAl.FI 

PRTM 

51 

C 

;  IMAX  »  91 

PRTM 

52 

c 

PPTM 

53 

c 

layer 

L  H  2T  M  C 

VX 

PRIM 

5A 

c 

m 

22, SO  INFINITE  INFINITE  0.797? 

0.0PH2 

PPTM 

55 

c 

9 

20.00  22.9.1  ?,S0  0.?95R 

C.CPOA 

PPTM 

56 

c 

R 

17. SO  20.00  ?.SP  0, 2938 

C.011R 

PPTM 

57 

c 

7 

15.03  17. SO  2.50  0,  2S.A1 

C.01AA 

PFTM 

SR 

c 

6 

12. SO  .15.00  2.50  0.7931 

0,0165 

PPTM 

50 

c 

6 

10.00  12.50  2 ,50  0.2551 

C.0160 

PPTM 

60 

c 

A 

7.50  10.  GO  7.50  0.SCI2 

0.01AV 

PP  I  M 

61 

c 

A 

5.(3  7,50  2.50  0.3117 

0.011P 

PPTM 

62 

c 

? 

2.5A  5,00  2.50  0. 126H 

C.OCRP 

PRTM 

63 

c 

1 

0.  2.60  2.5C  C.  U9A 

0.0057 

■PPTR 

6A 

r. 

PP.T“ 

65 

r 

2.0'HFISIIT  UF  LAYER  HOTTI'm  IN  KM 

PRIM 

66 

c. 

2 T  —  UK  IGHT  Til-  l  AYFP  TAP  IN  KM  (THE 

VY  C01U«N  IS 

PP  IM 

67 

c 

II  -WIDTH  Ul  IAYCR  IN  KM  N<n 

SHOWN  PI  CAUSE 

PP  T.M 

6H 

c 

C  *SOUNii  SPEED  IN.KM/SEC  f T  LACK  CE  SPACr., 

PPTM 

69 

c 

VX«X  C'IMP.  IF  WIND  VEL.  IN  KP/SFC  IT  DOTS  APPI  AK  ON 

PPTM 

70 

»K  OOP  AM 
PAATM'l 

PA  OH 
67 
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X  VY*Y  COMP.  OF  WIND  VEL.  UN  KM/SEC  PR 1NT OUT ,1 

-:c  '■  ■  '  . . 

:C  ----PROGRAM. FOLLOWS  8EL0W---- 

X  '  • 

-SUBROUTINE  pratmo. 

X  - 

C  XIRENSinAftANC  COMMON  STATEMENTS'  LOCATING:  INPUT 

OIMFNSION  C!UOb),VXH  toni.Wl  UOdl  iHUlOOl  ,211100) 

COMMON'  tMAX,Cl,VX|,VY!,H! 

C  '  ' 

X  LET  JET  DENOTE  THE  INDEX  OF  THE  UPPER'HALF  SPACE 
JET.*!  MAX+j 
C 

C  PRINTING  nr-  HEADING, 

WRITE  It, 111  JET 

If'  FORMAT!  ini',  14X,19HM0DEL  ATMOSPHERE  XF.I4.7H  LAVERS//) 

WRITE.  I  6. 211 

21  FORMAT UU  ,2X,'5HLAY£R«7X',?HZH,10X,2HZT,llX,lHH,'llX,lHr.,  11X.2HVX, 

1  lOX.  2HVY); 

C  -  '  " 

I F  l  i  MAX-  .EU,  0)  GO  TO  .IT 

c  . 

C  ZllI)  DENOTES  the.  HEIGHT  OF  TOP  OF  ItTH  LAYFR  OF  FINITE  THICKNESS 
21 ( 1 ) *H  1  (1 ) 

IFI  tMAX  .EO,,  1).  GO  TO  31 
DO  >30  I*?.,  IMAX 
3C  2 1  U)*Z  II 1-1 )  *HI  U I 
3l>  CONTINUE 

c 

c  PRINTOUT  FOP  UPPER  'HALE SPACE 
XUV  *Z  I  I  I  *AX  I. 

3  3  'IF  ( I  MAX-,,.  EO.  0)  XUV*0.0 
C*CI^(JET) 

VX*VXI  I  JEM 
VY«VYI(’JET) 

WRITE. IN, 41  )>  Jr.T,XUV,C,VX,VY  . 

A l”.  FORMAT,! 1H  ', 1,7  «F12.'2  »4X,  8MINF.INI  TG  ,4X  ,RMNFiNITE»3F  12.4 1 
C 

IF  UMAX  .EO.  0)  GO  TO  60 
IF  UMAX  ;EQ.  1)  GO  TO  5? 

C 

X  . TABULATION  FOR  LAYERS'  ?  THROUGH  UMAX 
DO  50'  J*2,|MAX 
l * IMAXA?-J 
IL-I-1 

50  WRITE  (6,51)  I  ,Z  1 1  I L  ) ,  Z I  (1 1  ,H!I1 )  ,CI  II  ).,V  XIII)  ,  VY I  (1 ) 

5)  FORMAT  1 1H  ,  I?  ,3Ft  2.2.1F12  .4 ) 

C 

C  TABULATION  FOR  LAYER  1 
52,1*1 

USTEU*0.0 

WRITE  (6,51)  l,U$TEO,Zim*HtUI,CM!),VXl(t),VYIUI 
C 

C  PRINTOUT  OF  EXPLANATIONS 

60  WRITE  (6,61) 

61  IORMATUMO,1SX.31HZH*HEIGHT  OF  LAYER  BOTTOM  IN  KM/  IH  ,15X,2RHZT*H 
lEIGHT  OF  LAYER  TOP  IN  KM/IH  ,15X,23HH  *WIOTH  OF  LAYER  IN  KR/IH  , 
215X.24HC  *SaiNU  SPFEU  IN  KM/SEC/1H  ,15X,33HVX*X  COMP.  Of  WIND  VEL. 
3  IN  KM/SLC/1H  ,15':,3?HVY*Y  COMP.  OF  WIND  VEL.  IN  KM/SEC) 

L 

RETURN 

FNO 


PRT.M- 

7.1: 

PRTM. 

7J> 

prtm' 

73 

PPTMs 

74 

PR  TM. 

75 

PRTM 

76 

PRTM 

77 

PRTM 

78 

PRTM 

l? 

PRTM 

8C 

PRTM/ 

81 

PR  TM> 

82 

PRTM 

83 

PRTM 

84- 

■PRTM 

PRTM 

>86 

PRTM 

87 

PRTM 

88' 

PRTM 

89 

'PRTM 

•90 

PRTM 

91 

PRTM 

92 

PRTM 

93 

PRTM 

94 

PRTM 

95 

prtm: 

96 

PRTM 

97 

PRTM 

98 

PRTM 

99 

PRTM 

100 

PRTM 

1  Cl 

PRT.M 

102 

PRTM 

1.03 

PRTM 

104 

PPTM 

105 

PRTM 

106 

PRTM 

107 

PPTM 

108 

PRTM 

109 

PRTM 

11C 

PRTM 

111 

PPTM- 

112 

PRTM 

113 

PPTM 

114 

PRTM 

115 

PPTM 

116 

PPTM 

117 

PRTM 

118 

PPTM 

119 

PRTM 

120 

PRTM 

121 

PRTM 

122 

PRTM 

123 

PRTM 

124 

PRTM 

125 

PRTM 

126 

PRTM 

127 

PPTM 
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PPTM 

129 

PRTM 

130 

PRTM 

131 
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P? 
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RRRR  (SUBROUTINE ! 


8/1/68 


-  TsfrxffiWyssS&ssL  •  ~ ' 


- ABSTRACT - 

rlTLF  ’THtSRSUBROUTINE  COMPUTES  A  2-BY-2  TRANSFER  MATRIX  HKICH  CONNECT 
soIutions  OF  THE  RESIDUAL  EOUATIONS  AT  THE  BOTTOM  OF  THE  UPPER 

HALFSPACE  to  solutions  at  the  ground  bv  the  relations 

PHI  1 (GROUND) *  RPP( 1*1 !*PHI l  ( 2T( 5  MAX) )*RPP( 1 »21*PHI212T ' I NA 

PHI2(GROUNO>»  RPPI2.n*PH!l(2T(IMAX»»»RPPt2.2JPPHI2(ITUMA 

UUPRF  7Tt IMAX1  IS  THE  HEIGHT  OF  THE  TOP  OF  THE  IMAX  CAVER  ANO 
rnwt foiifntLY  THE  HEIGHT  OF  THE  BOTTOM  OF  THE  UPPER  HALFSPACE. 
THE^ FUNT IONS  PHI xVl J  AND  PH 12 (21  SATISFY  THE  RESIDUAL  EQUATIONS 

0(PH!1 1/02  «  Al 1 »1J *PHll ( 2 1  ♦  AI1.2!*PHI2(Z1 

0(PHI2 1/02  «  AI2.l)*PHIl<21  ♦  A( 2. 2 »*PHI 2( 2 1 

MHERE  THE  Ad.Jl  ARE  FUNCTIONS  OF  ALT ITUOF  BUT  CONSTANT  IN  EACH 
LAVER. 

tF  HE  LET  EMU!  BE  THE  EM  MATRIX  (COMPUTED  BV  SUBROUTINE  MMMM» 
FOR  THE  I-TH  LAVER.  THEN  (IN  MATRIX  NOTATION! 

RPP  .  £M( 1  . . . . . . 

THE  ABOVE  FORMULA  IS  USED  TO  COMPUTE  THE  RPP(I.J). 

THE  PARAMETERS  OEFINING  THE  MULTILAYER  ATMOSPHERE  ARE  PRESUMED 
TO  BE  STORED  IN  COMMON. 

LANGUAGE  -  FORTRAN  IV  (360.  REFERENCE  MANUAL  C2B-651S-AI 
AUTHOR  -  A.O.PIERCE.  M.I.T.*  4U0U$Ttl968 
- CALLING  SEQUENCE - 

S.O.F. ..  co-o. 

DIMENSION  RPP(2«2I 

C  CALL  RRRR IOMEGA, AKX.AKY.RPP.KI 

£  - EXTERNAL  SUBROUTINES  REOUIREO - 

C 

C  NMMM.AAAA.CAI.SAl 


OMEGA 

r— 

R*A 

-ARGUM 

NO 

ENT  L 

INP 

AKX 

R*A 

NO 

INP 

AKV 

P*A 

NO 

INP 

RPP 

R*A 

2-BY-2  OUT 

X 

!*A 

NO 

OUT 

COMMON  STORAGE  USED 

COMMON  IHAX.CI.VXl.VVI.Hl 


!*A 

NO 

INP 

R*A 

100 

INP 

R*A 

100 

INP 

«*A 

100 

INP 

R*A 

loo 

(NP 

-INPUTS 

— 

•ANGULAR  frequency  in  rad/sec 


RRRR 

RRRR 

PRRR 

RRRR 

RRRR 

RRRR. 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RPRR 

RRRR 

RRRR 

RRRR 

RPRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRP 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 

RRRR 


1 

2 
3 
A 

5 

6 

7 

8 
<» 

10 
11 
12 
13 
l  A 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 
27 
2% 

29 

JO 

31 

32 
31 
3A 

35 

36 

37 

38 

39 
AO 
Al 
A2 
A3 
AA 
A5 
A6 
A7 
AS 
A9 

50 

51 

52 

53 
5A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6A 

65 

66  PROGRAM 

67  RRRR 
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AM  >1  COMPONENT  OP  HORIZONTAL  NAVE  NUMBER  VECTOR  !N  1/KM 

ANY  *V  COMPONENT  OR  HORIZONTAL  HAVE  NUMBER  VECTOR  IN  1/KM 

1MAX  •NUMBER  OR  LAVERS  OR  RINITE  THICKNESS 

CIU1  -SOONO  SPEED  IN  KM/SEC  IN  I-TH  LAYER 

VXIIII  «X  COMPONENT  OR  HIND  VELOCITY  IN  I-TH  LAYER  IKM/SEd 

VYIIII  «V  COMPONENT  Of  HIND  VELOCITY  IN  I-TH  LAVER  (KM/SECI 

Him  -THICKNESS  IN  KM  OR  t-TH  LAYER  OR  RINITE  THICKNESS 

- OUTPUTS - 

RRP  -R-BY-Z  TRANSFER  MATRIX  HHICH  CONNECTS  SOI  UTIONS  OR 

THE  "ESIOUAL  EQUATIONS  AT  THE  DOTTOM  OR  THE  URRER 
HALFSRACE  TO  SOLUTIONS  AT  THE  6KQUNO. 

X  -DUMMY  PARAMETER  ALWAYS  RETURNEO  ».S  0. 

- PROGRAM  FOLLOWS  BELOW - 

SUBROUTINE  RRRR (OMEGA , AKX . AKV, RPR, K  » 

C  DIMENSION  ANO  COMMON  STATEMENTS  LOCATING  PARAMETERS  DEFINING  THE  MODEL 
f  MULT  HAVER  ATMOSPHERE 

DIMENSION  C|  UOOI, VXt(  1001,  Wtt  100), HtilOOt 
COMMON  IMAX.CI.VXI.VVI.HI 

C 

DIMENSION  EHf2.2|,AlNTI2.2),RPP(2,2i 
K«0 
C 

f.  RPP  AT  TOP  OF  INAX  LAYER  IS  THE  I0ENTITV  MATRIX 

Rppii,n>i.o 

RPP ( 1,21*0,0 
RPPIZ, 11*0.0. 

RPPI2, 21*1.0 
C 

C  START  OF  00  LOOP  RUNNING  THROUGH  IMAX  LAVERS  IN  OESCENOING  OROER 
00  100  JASA*1« INAX 
IASAMMAX+1-JASA 

C  IASA  IS  THE  I  NO  EX  OF  THE  LAVER  CURRENT  UNDER  CONSIDERATION 
C 

C  COMPUTATION  OF  EM  MATRIX  FOR  IASA  LAVER 
C-CKIASAI 
VX-VXt  MASAI 
VY*VVII IASA I 
H-HKIASAt 

CALL  MMNM|OMEGA,AKX,AKV,C,VX,VY,H,EMt 

c 

c  MULTIPLICATION  OF  RPP  AT  TOP  OR  I*SA  LAVER  BV  EM  FOR  IASA  LAVER 
00  80  1*1,2 
00  80  J*l,2 

BO  AlNT(t,JJ*EM(I,l t*RPP( l,JI*EM(|«2t*PPP(2,JI 
C 

C  CURRENT  AINT-IS  RPP  AT  BOTTOM  OR  IASA  LAVER 
00  IS  1*1,2 
DO  85  J»l«2 
85  RPPI I ,J)*AINT(  I, Jt 

C 

100  CONTINUE 
C  RHO  OF  OUTER  00  LOOP 
C 

C  CURRENT  RPP  tS  THAT  AT  BOTTOM  OR  FIRST  LAVER 
RFTURN 
END 


RRRR 

71 

RRRR 

72 
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73 
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74 

RRRR 

75 

RRRR 

78 

RRRR 

77 

RRRR 

78 

RRRR 

75 

RRRR 

80 

RRRR 

81 

RRRR 

82 

RRRR 

83 

RRRR 

8* 

RRRR 

85 

RRRR 

86 

RRRR 

87 

RRRR 

88 

RRRR 

85 

RRRR 

50 

RRRR 

51 

RRRR 

52 

RRRR 

93 

RRRR 

94 

RRRR 

95 

RRRR 

96 

RRRR 

97 

RRRR 

98 

RRRR 

99 

RRRR 

100 

RRRR 

101 

RRRR 

102 

RRRR 

103 

RRRR 

104 

RRRR 

105 

RRRR 

106 

RRRR 

107 

RRRR 

108 

RRRR 

109 

RRRR 

no 

RRRR 

111 

RRRR 

112 

RRRR 

113 

RRRR 

114 

RRRR 

115 

RRRR 

116 

RRRR 

117 

RRRR 

118 

RRRR 

119 

RRRR 

120 

RRRR 

121 

RRRR 

122 

RRRR 

123 

RRRR 
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RRRR 
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RRRR 
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RRRR 
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RRRR 
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RRRR 
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RRRR 

130 

RRRR 
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PROGRAM 

RRRR 

PAGE 

TO 


274 


uuuwucuouuouuuuuuuuuuocuugguuuggu  u  gg  o u  o  g  go 


SAT  (FUNCTtOKI 


7/25/6# 


- ABSTRACT- 


TITLE  -  SAt 

PROGRAM  TO  EVALUATE  FUNCTION  SAM  XI  FOR  GIVEN  VARIABLE' X.  ' 

IF  X  IS  NEGATIVE,  SAKX)»S!N(Y>/V  WITH  Y-SORTt-XI.  IF  X  IS 
FOSITIVE,  SAt(X|.SINH(Y|/V  «ITH  V-SORTCXt.  THE  FUNCTION  IS 
ALSO  REPRESENTABLE  BY  THE  POMER  SERIES 

SAIIXI*  l  ♦  X/IJFACT1  ♦  X**2/( SFACTI  ♦  X**3/(7FACTI  ♦  ... 

LANGUAGE  -  FORTRAN  IV  (360,  REFERENCE  NANUAL  C28-6S15-4I 

AUTHOR  -  A.O.PtPRCE,  N.I.T.,  JULY, I960 

- CALLING  SEQUENCE - 

SAK ANY  R«A  ARGUNFNT I  NAY  RE  USED  IN  ARITHMETIC  EXPRESSIONS 

- -EXTERNAL  SUBROUTINES  REQUIRED - - 

NO  EXTERNAL  SUBROUTINES  ARE  REQUtRED 

- ARGUMENT  LIST - 

X  R*4  NO  INF 

SAI  RFA  NO  OUT 

NO  COMMON  STORAGE  IS  USED 

——PROGRAM  FOLLOW  BELOW - 


FUNCTION  SAIIXI 

I  IF*  ABS(XI  ,GT.  l.E-19  I  GO  TO  9 

ABSIXI  IS  SO  SMALL  THAT  SAI  IS  VIRTUALLY  1.0 
SAI-l.O 
RETURN 

CONTINUING  FROM  1 
9  V»SQRT( ABSIXII 
IFIXI  10.10, II 

X  IS  LESS  THAN  0. 

10  SAt-SlNIVl/V 
RETURN 

X  IS  FOSITIVE.  SA!«  SINHIYI/V. 

11  E*EXP(V» 

SAt«O.S*(E-I./El/Y 

return 

end 


SAt 

1 

SAt 

2 

SAt 

3 

SAI 

4 

SAI 

5 

SAI 

6 

SAI 

7 

SAI 

• 

SAI 

9 

SAI 

10 

SAI 

11 

SAI 

12 

SAI 

13 

SAI 

14 

SAI 

15 

SAI 

16 

SAI 

17 

SAI 

18 

SAt 

19 

SAt 

20 

SAI 

21 

SAI 

22 

SAI 

23 

SAI 

24 

SAI 

25 

SAI 

26 

SAI 

27 

SAT 

28 

SAI 

29 

SAI 

30 

SAI 

31 

SAt 

32 

SAI 

33 

S»! 

34 

SAI 

35 

SAI 

34 

SAI 

37 

SAI 

38 

SAI 

39 

SAI 

40 

SAI 

41 

SAI 

42 

SAI 

43 

SAI 

44 

SAI 

45 

SAI 

46 

SAI 

47 

SAt 

48 

SAI 

49 

SAt 

50 

SAI 

51 

SAI 

52 

SAI 

53 

SAI 

54 

PROGRAM 

SAt 
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SOURCE  (SUBROUTINE) 


8/15/41 


- ABSTRACT- - 

TITLE  *  SOURCE 

EVALUATION  OF  FOURIER  TRANSFORM  OF  NEAR  FIELD  ACOUSTIC  RESFONSE 
TO  EXPLOSIVE  SOURCE 

SOURCE  COMPUTES  THE  FOURIER  TRANSFORM  OF  THE  NEAR  FIELO 
PRESSURE.  AT  1  KM  FROM  A  l  KT  EXPLOSION  AT  SEA  LEVEL.  THE 
AMBIENT  PRESSURE  IS  ASSUMEO  TO  BE  1.E6  OVNES/CN»*2  ANO 
THE  TIME  LAPSE  FROM  TIME  ZERO  IS  NEBLECTEO.  AN  EMPIRICAL 
FORMULA  FOR  THIS  PRESSURE  IS 

FIT)  «  PAS  *  (I  -  IT/TAS) I  *  EXPt  -T/TAS  I  ,  T  .GT.  0 

-  0  .  T  .LT,  0 

NITH  PAS  •  (34.45E+3)  •  11.61)  0VNES/CN.42 
ANO  TAS  •  0.48  SEC  . 

THEREFORE.  ITS  FOURIER  TRANSFORM  IS 

FT(OMECA)-  -I  *  OMEGA  *  PAS  /  tl/TAS  -  I  •  0NEGA>**2 

WHERE  I  -  <-l)«*0.5  . 

LANGUAGE  -  FORTRAN  IV  I860.  REFERENCE  MANUAL  C2B-6515-4) 

AUTHORS  -  A. 0. PIERCE  ANO  J. POSEY,  M.I.T.,  AUGUST, 1468 


- USAGE - 

SUBROUTINE  PHASE  IS  CALLEO 
FORTRAN  USAGE 

CALI  SOURCEIOMEGA.FTMRG.FTPHSE.OMAG.OPHSE) 

INPUTS 

OMEGA  ANGULAR  FREQUENCT  (RAOIANS/SEC) 

R*4 

OUTPUTS 

FTMAG  MAGNITUDE  OF  FTI OMEGA)  OEFINEO  ABOVE  IN  SUBROUTINE  ABSTRA 
R*4  I  C0VNES/CM**2)  /  (RAO/SEC)  1 

FTPHSE  '  PHASE  OF  FTIOMEGAt  OEFINEO  ABOVE  IN  SUBROUTINE  ABSTRACT 
RP4  (RADIANS) 

ONAG  DERIVATIVE  OF  FTMAG  NITH  RESPECT  TO  OMEGA  I  I0TNES/CMP*2) 
R*4  /  IRA0/SEC)**2  I 

DPHSE  DERIVATIVE  OF  FTPHSE  NITH  RESPECT  To  ONEGA  (RAD  /  (RAO/ 

R*4  SEC)  ) 


- PROGRAM  FOLLOWS  BELOW— 


SUBROUTINE  SOURCE(OM€GA, FTMAG, FTPHSE, OMAG.DPHSE) 
C  ME  ASSUME  INVERSE  R  DEPENDENCE 
PA$. (34.45E*3/1.0»P( 1.61) 

C  PAS  IS  tN  0VNES/CM**2 

C  THIS  1$  THE  PEAK  OVERPRESSURE  AT  l  KM 
TAS.0.48 


SRCE 

1 

SRC* 

2 

SRCE 

3 

SRCE 

4 

SRCE 

S 

SRCE 

6 

SRCE 

7 

SRCE 

a 

SRCE 

9 

SRCE 

10 

SRCE 

11 

SRCE 

12 

SRCE 

13 

SRCE 

14 

SRCE 

15 

SRCE 

16 

SRCE 

17 

SRCE 

18 

SRCE 

14 

SRCE 

20 

SRCE 

21 

SRCE 

22 

.SRCE 

23 

SRCE 

24 

SRCE 

25 

SRCE 

26 

SRCE 

27 

SRCE 

28 

SRCE 

24 

SRCE 

30 

SRCE 

31 

SRCE 

32 

SRCE 

33 

SRCE 

34 

SRCE 

35 

SRCE 

36 

SRCE 

37 

SRCE 

38 

SRCE 

34 

SRCE 

40 

SRCE 

41 

SRCE 

42 

SRCE 

43 

SRCE 

44 

SRCE 

45 

SRCE 

46 

SRCE 

47 

SRCE 

48 

SRCE 

49 

SRCE 

50 

SRCE 

51 

SRCE 

52 

SRCE 

53 

SRCE 

54 

SRCE 

55 

SRCE 

46 

SRCE 

57 

SRCE 

58 

SRCE 

59 

SRCE 

60 

SRCE 

61 

SRCE 

62 

SRCE 

63 

SRCE 

64 

SRCE 

65 

SRCE 

66 

PROGRAM 

SRCE 

67 

SOURCE 

SRCE 

68 

SRCE 

69 

PAGE 

SRCE 

70 

72 
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TAS  IS  THE  LENGTH  OF  THE  POSITIVE  PHASE 

OMO>l.O/TAS 

ftENOM-ANE6AP*2*OHO«*2 

FTHA6-FASPONE6A/OENON 

0NAC»FAS/0EN0N-2.0*PAS*0HEGA**2/0EN0H**2 
CALL  PHASEIOMO.ONEGA.X.PHIJ 
PHI  IS  THE  ARCTAN  OF  ONEGA/ONO 
FTPHSE—3.1413427/2.0*2.0PPHI 
OPHSE>2.0PONO/DENOM 

THE  DERIVATIVE  OF  THE  ARCTAN  IS  l./ll.«VP*2I 

RETURN 

ENO 
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SOURCE 


c 

SUSPCT 

1 SUBROUT I NE I  7/14/68 

SPCT 

l 

f 

SPCT 

2 

c 

SPCT 

3 

f. 

- ABSTRACT - 

SPCT 

4 

c 

SPCT 

5 

c. 

TJtlF  -  SUSPCT 

SPCT 

6 

c 

EVALUATION  OF  SUSPICION  INDEX  OF  ELEMENT  (N.MI  OF  MATRIX  INMOOE 

SPCT 

7 

c 

SPCT 

8 

c 

SUSPCT  EVALUATES  THE  SUSPICION  INOEX,  ISUS.  OF  THE  ElEMEN 

SPCT 

9 

c 

IN  RON  N.  COLUMN  M  OF  THE  MATRIX  INMOOE  I  IN. MI  MUST  8E 

SPCT 

10 

r. 

AN  INTERIOR  ELEMENT).  THE  NEIGHBORS  OF  IN.M)  ARE  OEFINEO 

SPCT 

11 

c 

TO  RE  THE  EIGHT  ELEMENTS  WHICH  FORM  THE  THREE  BY  THREE 

SPCT 

12 

c 

ELEMENT  SQUARE  WHICH  HAS  IN.M)  AT  ITS  CENTER.  THEy  ARE 

SPCT 

13 

c 

NUMBERED  FROM  ONE  TO  NINE  BEGINNING  IN  THE  UPPER  LEFT  AND 

SPCT 

14 

c 

PROCEEDING  CLOCKWISE  INO.  t  AND  NO.  9  ARE  SANE  ELEMENT). 

SPCT 

15 

c 

EACH  ELEMENT  OF  MATRIX  INMOOE  MUST  HAVE  ONE  OF  THREE 

SPCT 

16 

c 

VALUFS.  -1.  1.  OR  S.  IN.M)  IS  NOT  SUSPICIOUS  AND  ISUS  * 

SPCT 

17 

r 

0  IF  ANY  ONE  OF  THE  FOLLOWING  CONDITIONS  HOLDS. 

SPCT 

18 

c 

SPCT 

19 

f. 

1.  ELEMENT  IN.M)  «  5 

SPCT 

20 

f. 

2.  ANY  OF  ITS  NEIGHBORS  ■  5 

SPCT 

21 

c 

1.  NOWHERE  IN  THE  3X3  ARRAY  OF  IN.M)  AND  ITS  NEiGH- 

SPCT 

22 

c 

BOBS  DOES  THERE  APPEAR  TO  BE  A  DISPERSION  CURVE 

SPCT 

23 

r 

WITH  POSITIVE  SLOPE 

SPCT 

24 

c 

SPCT 

25 

r. 

OTHERWISE  ISUS  IS  SET  EQUAL  TO  THE  NUMBER  OF  THE  QUADRANT 

SPCT 

26 

C 

IN  WHICH  THE  POSITIVE  SLOPE  APPEARS.  THE  QUADRANTS  ARE 

SPCT 

27 

r 

NUMBERED  BEGINNING  IN  THE  UPPER  LEFT  AND  PROCEOING  CLOCK- 

SPCT 

28 

c 

MI  SE. 

SPCT 

29 

c 

SPCT 

30 

r 

LANGUAGE 

-  FORTRAN  IV  (360.  REFERENCE  MANUAL  C26-651S-4) 

SPCT 

31 

c 

SPCT 

32 

c 

AUTHORS 

-  A. C. PIERCE  AN!)  J. POSEY,  M.I.T.,  JUNE.  1968 

SPCT 

33 

c 

SPCT 

34 

c 

- USAGE - 

SPCT 

35 

r 

SPCT 

36 

r 

NC  FORTRAN  SUBROUTINES  ARE  CALLED 

SPCT 

37 

c 

SPCT 

38 

c 

FORTRAN  USAGE 

SPCT 

39 

c 

CALL  SUSPCTlN.M.NROV.lNHOnF.lSUS) 

SPCT 

40 

c 

SPCT 

41 

r. 

INPUTS 

SPCT 

42 

c 

SPCT 

43 

r. 

N 

ROW  NUMBER  OF  ELEMENT  UNOER  CONSIDERATION  (MAY  NOT  BE 

SPCT 

44 

c 

1*4 

FIRST  OR  LAST  ROW) 

SPCT 

45 

c 

SPCT 

46 

c 

M 

COLUMN  NUMBER  OF  ELEMENT  UNDER  CONSIDERAION  (MAY  NOT  BE 

SPCT 

47 

c 

1*4 

FIRST  OR  LAST  COLUMN) 

SPCT 

48 

r 

SPCT 

49 

r. 

NROU 

TOTAL  NUMBER  OF  ROWS  IN  INMODE 

SPCT 

50 

c 

1*4 

SPCT 

51 

e 

SPCT 

52 

c 

INMODE 

MATRIX  UNDER  CONSIDERATION  STOREO  tN  VECTOR  FORM,  COLUMN 

SPCT 

53 

c 

1*4101 

AFTER  COLUMN.  EACH  ELEMENT  MUST  BE  -1,  1,  OR  S. 

SPCT 

54 

c 

SPCT 

55 

c 

OUTPUTS 

SPCT 

56 

c 

SPCT 

57 

c 

ISUS 

SUSPICION  INDEX  OF  ELEMENT  (N.M).  SEE  ABSTRACT  ABOVE  FOR 

SPCT 

58 

c 

1*4 

DEFINITION. 

SPCT 

59 

c 

SPCT 

60 

c 

SPCT 

11 

c 

- EXAMPLES- - 

SPCT 

62 

c 

SPCT 

63 

c 

CALLING  PROGRAM 

SPCT 

64 

c 

SPCT 

65 

c 

DIMENSION  INM00EI9) 

SPCT 

66 

program 

c 

INMOOE 

*  - 1 ♦  *lf  If  It  “It  If  It  It  “l 

SPCT 

67 

SUSPCT 

c 

CALL  SUSPCT (2.2,3, INMOOE > ISUS I 

SPCT 

68 

c 

WRITE  1 6,200)  ISUS 

SPCT 

69 

PAGE 

c 

200  FORMAT 

(10H  EXAMPLE  1.6X,  6HISUS  -.12) 

SPCT 

70 

74 

-278- 


r  INHOOE  «  -l.  -1.  1*  1.  -1.  -1,  t,  l.  1 
C  CALL  SUSPCT 12.2.  3, INHOOE  *  ISUS) 
f.  WRITE  16,300)  ISOS 

C  SOO  FORMAT  1 1  OH  EXAMPLE  ?,6X,  6HISUS  *,I2) 
f  END 

C 

C  T AMIES  OF  INHOOE 

r 

C  EXAMPLE  1  EXAMPLE  ? 

C 

C 

r  — ♦  — ♦ 

c 

c 

C  PRINTOUT 

c 

C  EXAMPLE  1  ISOS  «  3 

C  EXAMPLE  2  l  SUS  -  0 

C 
C 

c  - program  follows  bflow - 

c 

c 

SUBROUTINE  SUSPCTIN.M.NROW, INHOOE. ISUS) 

C 

C  VARIABLE  DIMENSIONING  OF  INHOOE 

DIMENSION  IPPI 91,  IQUA0C4I,  INHOOE  U) 

C 

C  ELEMENT  IN.Mt  OF  INHOOE  IS  ICEN 
ICEN-  INMODEIIH-ll*NROW*N) 

I SUS-  0 
C 

C  IF  ICEN  IS  5,  IT  IS  NOT  SUSPICIOUS  AND  ISUS  -  0 
IFIICEN  .FO.  SI  RETURN 

C 

C  IPPIN)  IS  NEIGHBOR  NO.  N  ISEE  ABSTRACT  ABOVE  FOR  NUMBERING  SCHEHEl 
IPPIll-  INMODFI IM»2l*NRO)TMN“I I l 
IPPI2I-  I NMODE 1 1  MM  )  «NROW*  IN-l )  I 
IPPI 3 1-  INHOOE 1 1 M-OI*NROWRIN“II I 
IPPI4I-  INHOOFHH-OI*NROWMN-Oll 
IPPISI-  I NMOOE 1 1 M-o ) *N ROW* I N* 1 1 1 
IPRI6I-  INHOOE! I M-I I*NR0N*IN»I 1 1 
IPPITI-  t NMOOE II M*2 I -NROW ♦  I N* 1 1 1 
IPPI 81-  t NMOOE 1 1 M-2 1 *NROW» INFO II 
IPPI9).  IPPIll 
NX  -  0 
DO  10  I-l.R 

lFUPPIll  .EO.  SI  NX«NX*1 
10  CONTINUE 

C  NX  IS  THE  NUMBER  OF  NEIGHBORS  WHICH  EOUAL  »5 
C 

C  IF  MORE  THAN  ONE  NEIGHBOR  IS  ECUAL  TO  *5,  THEN  ISUS-0 
IF  INK  rGY.  11  RETURN 
C 

C  IF  NEIGHBOR  3  IS  THF  ONLY  ONE  FQUAL  TO  *5  AND  FITHER  NEIGHBOR  2  OR 
C  NEIGHBOR  4  DOES  NOT  AGREE  WITH  ICFN,  THEN  ISUS-2 
I SUM  .  IABSI  ICFN  ♦  IPPI2I  ♦  TPPI4I) 

IF  IIPPI3I.E0.S  .AND.  ISUM.NE.3I  ISUS-2 
IF  INX.GT.OI  RETURN 
30  00  SO  1-1,9 

SO  IPPI I l-l IABSI IPPI I •♦ICEN I 1/2 

C  IPPIll  IS  I  IF  NEIGHBOR  1  AGREES  WITH  ICEN,  IT  IS  0  IF  THEY  01S*GREE 


SECT  « 
SPCT  72 
SPCT  73 
SPCT  74 
SPCT  75 
SECT  76 
SPCT  77 
SPCT  78 
SPCT  79 
SPCT  80 
SPCT  81 
SPCT  82 
SPCT  83 
SPCT  34 
SPCT  85 
SPCT  B6 
SPCT  87 
SPCT  88 
SPCT  89 
SPCT  90 
SPCT  91 
SPCT  92 
SPCT  93 
SPCT  94 
SPCT  95 
SPCT  96 
SPCT  97 
SPCT  98 
SPCT  99 
SPCT  100 
SPCT  101 
SPCT  102 
SPCT  103 
SPCT  104 
SPCT  105 
SPCT  106 
SPCT  107 
SPCT  108 
SPCT  109 
SPCT  m 
SPCT  11. 
SPCT  112 
SPCT  113 
SPCT  114 
SPCT  115 
SPCT  116 
SPCT  117 
SPCT  118 
SPCT  119 
SPCT  120 
SPCT  121 
SPCT  12? 
SPCT  123 
SPCT  124 
SPCT  125 
SPCT  126 
SPCT  127 
SPCT  128 
SPCT  129 
SPCT  130 
SPCT  131 
SPCT  132 


c 

ITO  REACH  THIS 

POINT 

• 

NEITHER  ICEN 

NOR  ANY 

OF  ITS  NEIGHBORS 

COULD  BE  S 

SPCT 

133 

c 

SPCT 

134 

ISUS  -  l 

SPCT 

135 

IFI  IPPIl) 

,E0. 

0 

•  AND. 

IPPI?) 

•  EO.  1 

•AND.  IPPI8)  .FO. 

11 

SPCT 

136 

PROGRAM 

1  RETURN 

SPCT 

137 

SUSPCT 

IFI  IPPIBI 

•  EO. 

0 

•  ANO. 

IPPI21 

•EO.  0) 

RETURN 

SPCT 

130 

ISUS  -  » 

SPCT 

139 

PAGE 

IFI  IPPI?) 

•  EO. 

n 

•  ANO, 

IPPI3I 

•EO.  1) 

RETURN 

SPCT 

140 

75 

279' 


If*  !»EI31  .EO.  1 
1SUS  *  3 

IF C  IFF*  5»  .EO.  0 
1  RETURN 

IF t  IEE<4»  .EO.  0 
!SUS  *  4 

IF*  IEE161  .CO.  0 
IF*  !EE*?>  .EO.  I 
! SUS  »  0 
RETURN 
ENO 


.AND.  IPE<4l  .EO. 

.AND.  IPPI41  .EO. 

.ANO.  !EE<6»  .EO. 

•  ANO.  JFPtT  >  .EO. 
.ANO.  1EE<8 5  .EO. 


0>  RETURN 

1  .ANO.  IPPt4t  .EO. 

01  RETURN 

1»  RETURN 
0)  RETURN 


SECT  141 
SECT  142 
1>  SECT  143 

SECT  144 
SECT  145 
SECT  146 
SECT  14? 
SECT  148 
SECT  145 
SECT  150 
SECT  151 


PROGRAM 

SUSECT 


c 

TABLE 

1  SUBROUTINE!  7/19/68 

TABL 

l 

c 

TABL 

2 

c 

TABL 

3 

c 

- - ABSTRACT - 

TABL 

4 

c 

TABL 

5 

c 

TITLE  -  TABLE 

TABL 

6 

c 

GENERATION  OF  SUSPICIONLESS  TABLE  OF  NORMAL  NODE  DISPERSION 

TABL 

7 

c 

FUNCTION  SIGNS 

TABL 

B 

r 

TABL 

9 

c 

TABLE  CALLS  SUBROUTINE  MPOUT  TO  CONSTRUCT  THE  MATRIX  OF 

TABL 

10 

c 

NORMAL  NODE  DISPERSION  FUNCTION  SIGNS  INNOOE  (STORED  IN 

TABL 

11 

c 

VECTOR  FORM  COLUMN  AFTER  COLUHNI  FOR  REGION  IN  FREOUENCY- 

TABL 

12 

c 

PHASE  VaOCITY  PLANE  (ON1.LE.ONEGA.LE.OM2.AND.V1.LE.VP.L6 

TABL 

13 

c 

. V2I.  SUBROUTINE  SUSPCT  IS  CALLEO  TO  EVALUATE  THE  SUSPI¬ 

TABL 

14 

c 

CION  INDEX  .ISUS,  OF  EACH  INTERIOR  ELEMENT  IN  THE  MATRIX 

TABL 

15 

c 

scanning  from  left  to  right,  top  to  bottom,  if  isus  .ne. 

TABL 

16 

f. 

0  .  INNOOE  IS  ALTERED  AS  FOLLOWS. 

TABL 

17 

c 

ISUS-1  ROM  AOOED  ABOVE  SUSPICtOUS  ELEMENT  AND  COLUMN 

TABL 

18 

c 

ADDED  TO  ITS  LEFT 

TABL 

19 

r 

•?  COLUMN  AOOED  TO  RIGHT  OF  SUSPtCIOUS  ELEMENT 

TABL 

20 

r 

and  row  aodeo  above  IT 

TABL 

21 

c 

>3  ROM  ADDED  BELOW  SUSPICIOUS  ELEMENT  AND  COLUMN 

TABL 

22 

c 

AODEO  TO  ITS  RIGHT 

TABL 

23 

r 

*4  COLUMN  ADOED  TO  LEFT  OF  SUSPICIOUS  ELEMENT 

TABL 

24 

c 

AND  ROW  AOOEO  BELOW  IT 

TABL 

25 

c 

HOWEVER.  NEITHER  THE  NUMBER  OF  ROWS  NVP  NOR  THE  NUMBER  OF 

TABL 

26 

c 

COLUMNS  NON  WILL  BE  INCREASED  BEYOND  100.  IF  ISUS  CALLS 

TABL 

27 

c 

FOR  AN  ADDITIONAL  RON  WHEN  NVP  *  100  ,  THE  MESSAGE 

TABL 

28 

c 

(NVP  *  100  N  *  XX  N  «  XXI  WILL  BE  PRINTED. 

TABL 

29 

c 

N  IS  ROM  NO.  OF  SUSPICIOUS  ELEMENT.  M  IS  COLUMN  NO.  IF 

TABL 

30 

c 

ISUS  CALLS  FOR  ADDITION  OF  A  COLUMN  WHEN  NON  »  100.  THE 

TABL 

31 

c 

MESSAGF  (NON  >100  N  >  XX  M  •  XXI  IS  PRINTE 

TABL 

32 

c 

WHEN  INNOOE  HAS  BEEN  EXPANDED  SCANNING  IS  RESUMED  AT  THE 

TABL 

33 

c 

ELEMENT  IN  NEW  MATRIX  WITH  SAME  ROW  AND  COLUMN  NOS.  AS 

TABL 

34 

c 

THOSE  OF  SUSPtCIOUS  ELEMENT  IN  OLD  MATRIX.  IF  NOPT  IS 

TABL 

35 

r. 

POSITIVE  INMODE  WILL  BE  PRINTED  AS  IT  IS  RETURNED  FROM 

TABL 

36 

c 

MPOUT  ANO  IN  ITS  FINAL  FORM. 

TABL 

37 

f. 

TABL 

38 

c 

LANGUAGE 

-  FORTRAN  IV  5160.  REFERENCE  MANUAL  -  C28-6515-4) 

TABL 

39 

r. 

TABL 

40 

f. 

AUTHOR 

-  J.W.POSEV,  M.I.T..  JUNE. 196B 

TABL 

41 

r 

TABL 

42 

c 

TABL 

43 

c 

- USAGE - 

TABL 

44 

r 

TABL 

45 

c 

SUBROUTINES  MPOUT.SUSPCT.LNOTHN.WIDEN.NMOFN  ARE  CALLED  IN  TABLE. 

TABL 

46 

r 

TABL 

47 

c 

FORTRAN  USAGE 

TABL 

48 

c 

CALL 

T ABLEIOMl. 0M?,Vt,V2. NON, NVP, THETR.OM.V. INMODE. NOPT) 

TABL 

49 

r 

TABL 

50 

r. 

INPUTS 

0 

TABL 

51 

c 

TABL 

52 

c 

n*u 

MINIMUM  VALUE  OF  FREQUENCY  TO  BE  CONSIDERED. 

TABL 

53 

c 

R*4 

TABL 

54 

c 

ON? 

MAXIMUM  VALUE  CF  FREOUENY  TO  RE  CONSIDERED 

TABL 

55 

c 

R*4 

TABL 

56 

c 

VI 

MINIMUM  VALUE  OF  PHASF  VELOCITY  TO  BE  CONSIDERED 

TABL 

57 

c 

R«4 

TABL 

58 

r 

V2 

MAXIMUM  VALUE  OF  PHASE  VELOCITY  TO  BE  CONSICEREO 

TABL 

59 

c 

R*4 

TABL 

60 

c 

NON 

INITIAL  NO.  OF  FREOUENCIFS  TO  RF  CONSIDERED 

TABL 

61 

c 

1*4 

TABL 

62 

c 

NVP 

INITIAL  NO.  OF  PHASE  VELOCITIES  TO  RF  CONSIDERED 

TABL 

63 

r 

1*4 

TABL 

64 

c 

TKFTK 

PHASF  VELOCITY  OIRFCT'ON  (RADIANS) 

TABL 

65 

r 

R*4 

TABL 

66 

PROGRAM 

r 

NOPT 

PRINT  OUT  OPTION.  IF  NO*T  »  -1,  NO  PRINT.  IF  NOPT  »  l. 

TABL 

67 

TABLE 

c 

1*4 

INNOOE  IS  PRINTED  IN  ITS  INITIAL  FORM  (GENFRATEO  BY  MPOUT 

TABL 

68 

r. 

ANO  IN  ITS  FINAL  FORM. 

TABL 

69 

PAGE 

c 

TABL 

TO 

77 

281- 


<■><■*  nr*  r»r»  <1  r*r>r»r>r>r*nr*r>ririnn<->nnr>r*nr*nr>r>nr>rinr«r>(->r>r»ni-*r>nnr><-*ooor>noo(-> 


OUTWITS 

NOW  TOT At  NO.  OF  FREQUENCIES  CONSIDERED 

1*4 

NVP  TOTAt  NO.  OF  PHASE  VELOCITIES  CONSIDERED 

1*4 

ON  VECTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  OF  ANGULAR  FREQUENCY 

R*4(0l  CORRESPONDING  TO  THE  COLUMNS  OF  THE  INHODE  MATRIX 

V  VECTOR  WHOSE  ELEMENTS  ARE  THE  VALUES  OF  PHASE  VELOCITY 

R*4lD>  CORRESPONDING  TO  THE  ROWS  OF  THE  INMOOE  MATRIX 

inn ode  each  element  of  this  matrix  corresponds  to  a  point  in  the 

1*4101  FREQUENCY  IOMI  -  PHASE  VELOCITY  (VI  PtANE.  IF  THE  NORMAL 
MODE  OISPERSION  FUNCTION  (FPPI  IS  POSITIVE  AT  THAT  POINT. 
THE  ELEMENT  IS  ♦!.  IF  FPP  IS  NEGATIVE.  THE  ELEMENT  1$  -l. 
IF  FPP  OOFS  NOT  EXIST.  THE  ELEMENT  IS  S.  INMOOE  HAS  NVP 
ROWS  AND  NON  COLUMNS.  MATRIX  IS  STORED  AS  A  VECTOR. 
COLUMN  AFTER  COLUMN. 


- - EXAMPLE - 

LET  INMOOE  -  -l .5.5. SI .-1,-1. -1,1 .  1  .-1.-1. 1.1.1. 1 
WITH  NON  >  NVP  ■  4 

AND  ON  «  1.0, 1.5, 2.0,2. 5  THETX  *  3.14154 

V  *  1.0.2.0, 3.0,4. 0 

(VALUES  NOT  CORRECT,  FOR  ILLUSTRATION  ONLY  I 

THEN  THE  TABLE  WILL  BE  PRINTEO  AS  FOLLOWS. 

VPHASE  NOAWAL  MODE  DISPERSION  FUNCTION  StGN 

1.00000  -♦♦♦ 

2.00000  x-*+ 

3.00000  X— ♦ 

4.00000  X— ♦ 

OMEGA  1234 

PHASE  VELOCITY  DIRECTION  IS  90.0000ECREES 

OMFGa  - 

O.IOOOOE  01  0.15000F  01  0.20000E  01  0.25000E  01 


- PROGRAM  follows  below - 


SUBROUTINE  TABLEI0M1 ,0M2, VI, V2.N0M, NVP, THETK.OM.V, INMODE .NOPTI 

DIMENSION  0H( 100., VI 1001, INMOOE! 10000) .DORNI 100), KORN( 100) 
COMMON  ]NAX,C!(l0O),VXm00),VYH100),Hm00) 

MPOUT  ts  CALLEO  TO  PRODUCE  INMOOE  MATRIX  AND  OM  AND  V  VECTORS. 

CALL  MP0UT(0H1,0M2. VI. V2.N0M.NVP, INMODE, OM.V.THETRI 

(FLAG  •  l  INDICATES  FIRST  TIME  THROUGH  WRITE  PROCEDURE 
(FLAG  -  1 

INMOOE  IS  PRINTED  IF  NOPT  IS  POSITIVE 
IF  (NOPT.GE.OI  GO  TO  123 
5  IFLAG  -  0 
NOPERaO 

C  NOPER  IS  THE  NUMBER  OF  EXPANSION  OPERATIONS  PERFORMED  IN  THE  PRESENT 
C  SCAN  OF  THE  MATRIX.  THUS.  NOPER  IS  THE  NUMBER  Of  SUSPICIOUS  POINTS 
C  FOUND  IN  THE  PRESENT  SCAN. 

C 

C  BEGIN  SCANNING  OF  INTERIOR  ELEMENTS  OF  INMODE  IN  UPPER  LEFT  CORNER 
N  >  2 
M  •  2 

10  CALL  SUSPCTIN.M.HVF, INMOOE, ISUS) 


TABL 

Tl 

TAB! 

72 

TABL 

73 

TABL 

74 

TABL 

75 

TABL 

7* 

TABL 

77 

TABL 

78 

TABL 

75 

TABL 

80 

TABL 

81 

TABL 

82 

TABL 

83 

TABL 

84 

TABL 

85 

TABL 

B6 

TABL 

87 

TABL 

SB 

TABL 

89 

TABL 

90 

TABL 

91 

TABL 

92 

TABL 

93 

TABL 

94 

TABL 

95 

TABL 

46 

TABL 

97 

TABL 

98 

TABL 

99 

TABL 

100 

TABL 

101 

TABL 

102 

TABL 

103 

TABL 

104 

TABL 

105 

TABL 

106 

TABL 

107 

TABL 

108 

TABL 

109 

TABL 

110 

TABL 

111 

TABL 

112 

TABL 

113 

TABL 

114 

TABL 

115 

TABL 

116 

TABL 

117 

TABL 

118 

TABL 

119 

TABL 

120 

TABL 

121 

TABL 

122 

TABL 

123 

TABL 

124 

TABL 

123 

TABL 

126 

TABL 

127 

TABL 

128 

TABL 

129 

TABL 

130 

TABL 

131 

TABL 

132 

TASL 

133 

TABL 

134 

TABL 

135 

TABL 

136 

PROGRAM 

TABL 

137 

TABLE 

TABL 

138 

TABL 

139 

PAGE 

TABL 

140 

78 

c 

Util 

l*i 

c 

POINT  (N.N)  IS  SUSPICIOUS  IF  ISUS.NE.O 

nu 

*62 

IFttSUS.Kf.O)  60  TO  60 

TAIL 

i*» 

c 

TABl 

1*6 

c 

CHECK  FOR  ENO  OF  ROW 

TAIL 

165 

20  IF  (N.LT.INOM-ll)  GO  TO  30 

TABL 

166 

c 

TABL 

167 

c 

CHECK  FOR  LAST  ROW 

TABL 

168 

IF  (N.LT.(NVP-l))  GO  TO  60 

TABL 

169 

GO  TO  121 

TABL 

ISO 

c 

TABL 

151 

c 

HOVE  ONE  COLUMN  TO  RIGHT 

TABL 

152 

30  N  -  N*1 

TABL 

153 

GO  TO  10 

TABL 

156 

c 

TABL 

155 

c 

ADVANCE  ONE  ROW  AND  START  AT  COLUMN  TWO 

TABL 

156 

60  N  •  N*1 

TABL 

157 

M  »  2 

TABL 

158 

GO  TO  10 

TABL 

159 

c 

TABL 

160 

c 

CHECK  FOR  MAXIMUM  VALUE  OF  NVP 

TABL 

161 

60  1FINVP.LT. 100)  GO  TO  62 

TABL 

162 

61  FORMAT  I26H  NVP  "  100  H  -.I3.8H  M  -.13) 

TABL 

163 

WRITE  (6.61)  N.K 

TABL 

166 

GO  TO  20 

TABL 

165 

62  IFINOM  .IT.  100)  GO  TO  70 

TABL 

166 

63  FORMAT ( 26HN0H  *  100  N-,13,  8H  M-,13) 

TABL 

167 

66  WR|TE(6,63)  n.M 

TABL 

168 

GO  TO  20 

TABL 

169 

TO  IFUSUS  .NE.  1)  GO  TO  75 

TABL 

170 

c 

TABL 

171 

c 

A 00  ROW  ABOVE  SUSPICIOUS  POINT 

TABL 

172 

Nl-N-1 

TABL 

173 

c 

TABL 

176 

c 

ADO  A  COLUMN  TO  LEFT  OF  SUSPICIOUS  POINT 

TABL 

175 

Nl-N-1 

TABL 

176 

GO  TO  100 

TABL 

177 

T5  IFUSUS  .NE.  2)  60  TO  80 

TABL 

178 

c 

TABL 

179 

c 

ADD  A  COLUMN  TO  RIGHT  OF  SUSPICIOUS  POINT 

TABL 

180 

Nl-N 

TABL 

181 

c 

TABL 

182 

r. 

A 00  ROW  ABOVE  SUSPICIOUS  POINT 

TABL 

183 

Nl-N-1 

TABL 

186 

GO  TO  TOO 

TABL 

185 

80  IFUSUS  .NE.  3)  GO  TO  8S 

TABL 

186 

c 

TABL 

187 

c 

ADO  A  COLUMN  TO  RIGHT  OF  SUSPICIOUS  POINT 

TABL 

188 

Ml-M 

TABL 

189 

c 

TABL 

190 

c 

ADD  ROW  BELOW  SUSPICIOUS  POINT 

TABL 

191 

Nl-N  * 

TABL 

192 

GO  TO  100 

TABL 

193 

c 

TABL 

196 

c 

A 00  ROW  BELOW  SUSPICIOUS  POINT 

TABL 

195 

85  Nl-N 

TABL 

196 

c 

ADD  A  COLUMN  TO  LEFT  OF  SUSPICIOUS  POINT 

TABL 

197 

c 

TABL 

198 

Nl-N-1 

TABL 

199 

100  CONTINUE 

TABL 

200 

CALL  LNGTHNION.V.INMOOE.NOP.NVP.NVPP.Nl.l.THETK) 

TABL 

201 

CALL  WIDEN! OM.V. INMOOE.NOM.NOMP.NVPP. Ml .l.THETK) 

TABL 

202 

NVP-NVPP 

TABL 

203 

nom-nomp 

TABL 

206 

NOPER-NOPERM 

TABL 

205 

GO  TO  10 

TABL 

206 

PROGRAM 

121  CONTINUE 

IFINOPER  .mV  0  .AND.  NVP  .LT.  100  .AND.  NON  .IT,  100)  GO  TO  S 

TABL 

207 

TABLE 

TABL 

208 

c 

TABL 

209 

PAGE 

c 

00  NOT  PRINT  INMOOE  IF  NOPT  IS  NEGATIVE 

TABL 

210 

79 

283- 


r»  -> 


tFINOPT  .IT.  01  ReTU®N 


C  LABELING 

1??  FORMAT  I6H1VPHSF.6X.36HN0»MAI  NODE  DISPERSION  FUNCTION  SIGN/1 
173  WRITE  (6,1771 
on  133  t'l.NVP 
00  12R  J  *  l « NON 

IF  (INMOOE(C.I-I»»NVP*II-1)  126.125,126 
126  CONTINUE 

C 

C  IF  INMOOE  *  3,  OORN  *  1HX 
OATA  01/lHX/ 

OORNIJI  •  01 
00  TO  127 
173  CONTINUF 

C 

C  IF  INMOOE  •  1,  OORN  «  1H4 
OATA  02/lH*/ 

OORNIJI  «  07 
r.n  to  127 

126  CONTINUF 

C 

C  IF  tNMOOF  «  -1.  OORN  *  1H- 
OATA  Q3/IH-/ 

OORNIJI  «  03 

127  CONTINUF 
123  CONTINUF 

C 

C  PRINT  ROM  I  OF  T ARIF 

MR! TF  (6.1 30 IV 1 1  I <1 OORNIJI •  J«1.N0M| 

130  format! ih  ,fr.3.tx.iooaii 
133  CONTINUF 
JIO  •  10 
00  130  J.l.NOM 

r 

C  NUMBER  C0LUMN3 

130  KORNIJI  «  M0OIJ.J10I 

MR1TF  I  6. 2l 3 1  (KORNIJI,  J-l.NOMI 
713  FnRM*f  (6HOOMFGA,4X,100tll 

f 

r  CONVERT  THETK  from  RAOIANS  to  OEGRFfS 
X  •  THFTK* 1*0/3, 1415° 

WRITE  (6,4131  X 

413  FORMAT  I1H  ,  11X.  77HPHA3F  VFIOCITY  OIRFCTION  IS.F9.3, 

1  RH0EGRFE3  I 
WRITE  16,5131 
513  FORMAT  I  BHhOMFGA  «l 

LIST  VALUFS  OF  OMFC.A  WHICH  CORRFSPONO  TO  COIUMNS  OF  TABLE 
WRITE  (6,6131  IOMI!l.t*l.NPN| 

613  FORMAT  .(  1H  ,5E1 4,3 1 

r 

C  IF  SUSPICION  ELIMINATION  HAS  NOT  BEEN  PFRFORMFO,  BEGIN  IT  AT  THIS  TIME 
IF  I IFtAO.FO. I  I  GO  TO  3 
RFTURN 
FNO 


TABL  211 
TARL  212 
TABL  213 
TABL  216 
TABL  215 
TABL  21* 
TABL  217 
TABL  218 
TABL  219 
TABL  220 
TABL  221 
TABL  222 
TABL  273 
TABL  226 
TABL  225 
TABL  276 
T*Bl  227 
TABL  228 
TABl  229 
TABL  230 
TABl  231 
TABL  232 
TABL  233 
TABL  236 
TABL  235 
TABL  236 
TABL  237 
TABL  738 
TABl  739 
TABL  26C 
TABL  261 
TABL  262 
TABL  263 
TABL  266 
TABL  265 
TABL  266 
TABl  267 
TABl  268 
TABL  269 
TABL  250 
TABL  251 
TABL  252 
TABL  253 
TABL  256 
TABL  255 
TABL  256 
TABl  257 
TABL  258 
TABL  259 
TABL  260 
TABl.  261 
T66L  262 
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TABL  266 
TABL  265 
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TABPRT  (SUBROUTINE I 


7/31/68 


- ABSTRACT - 


TtTLF  -  TABPRT 

PROGRAM  TO  PRINT  OUT  LISTS  OF  FRFQUENCY,  PHASF  VELOCITY, 
AMPLITUOE,  AND  PHASE  FOR  EACH  GUIDED  MODE  EXCITED  BV  A  NUCLEAR 
EXPLOSION  OF  GIVEN  VIELO,  THE  SIMULTANEOUS  LISTING  OF  FREQUENC 
ANO  PHASE  VELOCITY  REPRESENTS  The  OISPERSION  CURVE  FOR  THE 
GUtOED  HOOF.  THE  QUANTITIES  AMPLTO  ANO  PHASE  DEPEND  ON  SOURCE 
ANO  OBSERVER  HEIGHTS  AS  WELL  AS  THE  MODEL  ATMOSPHERF.  HOWEVER. 
THE  LATTER  INFORMATION  IS  NOT  LtSTEO  BY  TABPRT  AND  IS  PRESUMED 
TO  BE  LISTED  BY  ANOTHER  SUBROUTINE.  THE  SUBROUTINE  TABPRT 
SHOULD  NOT  BE  CALLED  UNTIL  ALL  THE  QUANTITIES  TD  BF  LISTED 
HAVF  BEEN  COMPUTED  AND  STORED  IN  THE  MACHINE.  NORMALLY, 

atmos,  table,  allmoo,  pampde,  and  ppamp  woulo  be  calleo  before 

TABPRT. 

LANGUAGE  -  FORTRAN  IV  (340,  REFERENCE  MANUAL  C2B-6515-4I 
AUTHORS  -  A. 0. PIERCE  ANO  J. POSEY.  M.I.T.,  JULY, 1968 

- CALLING  SEQUENCE - 

0IMFNSI3N  KST( 1 1 »KF !N( 1 1 ,OMMOD( 1 1 , VPMOOI 1 1 , AMPLTD( 1 ) ,PHASO( 1 ) 

the  subroutinf  uses  variable  dimensioning,  the  true  dimensions  must 

BE  GIVEN  IN  THE  PROGRAM  WHICH  DEFINES  THESE  QUANTITIES.  SEE  THE 


TBP* 

TBPR 
TBRR 
TBPR 
TBP« 

TBPP 
TBPR 
TBPR 
TBPR 
TBPR 
TBPR 
TBPR 
TBPR  13 
TBPR  1 A 
TBPR  14 
TBPR  16 
TBPR  17 
TBPR  18 
TBPR 
TBPR 
TBPR 


TBPR 

TBPR 


NO  COMMON  STOPAGF  USEn 

- INPUTS - 

YIELD  "ENERGY  YIELD  OF  EXPLOSION  IN  EQUIVALFNT  X  [LOTONS  (XT! 

OF  TNT.  1  XT  «  4.2X1101**19  ERGS. 

MOFNO  "NUMBER  OF  NORMAL  MOOES  FOUND 

KST(N»  "INDEX  OF  FIRST  TABULATEO  POINT  IN  N-TH  MODE 

XFININT  "INDEX  OF  LAST  TABULATED  POINT  IN  N-TH  MODE.  IN 

GENERAL,  KFtN(N|.XST(NM)-l. 

OMMOOINI  "ARRAY  STORING  ANGULAR  FREQUENCY  ORDINATE  IRAD/SEC)  OF 
POINTS  ON  OISPERSION  CURVES.  THE  NMODE  MODE  IS  STORF 
FOR  N  BETWEEN  KST(NMOOE)  ANO  KFININMODEI. 

VPMOO(N)  "ARRAY  STORING  PHASE  VELOCITY  ORDINATE  (XM/SFC*  OF 

POINTS  ON  OISPERSION  CURVES.  THE  NMODE  MODE  IS  STORE 
FOR  N  BETWEEN  KST (NMODE I  ANO  KFININMOOE). 

AMPLTO(NI  "AMPLITUOE  FACTOR  REPRESENTING  TOTAL  MAGNITUDE  OF 

FOURIFR  TRANSFORM  OF  THE  CONTRIBUTION  TO  THE  WAVEFORM 
FROM  A  SINGLE  GUIDED  MODE  AT  FREQUENCY  OMMOD(NI. 

ITS  UNITS  SHOULD  BE  I DYNES/CM**2 I «  |KM**I 1/2)(*SEC. 

IT  REPRESENTS  THE  AMPLITUDE  OF  NMOOE-TH  MODF  IF  N  IS 
BETWEEN  KST (NMODE I  ANO  KFININMODEI,  INCLUSIVE.  FOR 
PRFCISE  DEFINITION,  SEE  SUBROUTINE  PPAMP. 

PHASQINl  "PHASE  LAG  IN  RADIANS  AT  FREQUENCY  OMMODINI  FOR  THE 
NHODE-TH  MOOE  WHEN  N  IS  BETWEEN  KST ( NMODE I  ANO 
KFININMODEI,  INCLUSIVE.  THE  INTEGRAND  IS  UNDERSTOOD 
TO  HAVE  THE  FORM  AMPLTD*COSIOMMOO*( T I ME-0 I S TANCE /VPMO 
♦PhASO).  FOR  A  PRECISE  DEFINITION,  SEE  SUBROUTINE 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


19 

20 
21 
22 
23 


TBPR  24 
TBPR  25 
TBPR  26 


'ENSION  STATEMENTS 

IN  THE 

MAIN  PROGRAM. 

TBPR 

27 

call  TABPRTIVIELO 

l.  MOFNO 

» KST, KF IN. OMMOO, VPMODt  AMPLTD, PHASO 1 

TBPR 

28 

TBPR 

29 

EXTERNAL 

SUBROUTINES  ARE 

REQUIRED 

TBPR 

30 

TBPR 

31 

— 

ARGUMENT  LIST - 

TBPR 

32 

TBPR 

33 

YIELO 

R»4 

ND 

INP 

TBPR 

34 

MDFNO 

1*4 

NO 

INP 

TBPR 

35 

KST 

t*4 

VAR 

INP 

TBPR 

36 

KF  IN 

1*4 

VAR 

INP 

TBPR 

37 

OMMOO 

R*4 

VAR 

INP 

TBPR 

3B 

VPNOO 

R*4 

VAR 

INP 

TBPR 

3R 

AMPLTO 

R*4 

VAR 

INP 

TBPR 

40 

PHASO 

R*4 

VAR 

INP 

TBPR 

41 

TBPR 

42 

TBPR  43 
TBPR  44 
TBPR  45 
TBPR  46 
TBPR  47 
TB°R  48 
TBPR  49 
TBPR  50 
TBPR  51 
TBPR  52 
TBFR  43 
TBPR  54 
TBPR  45 
TBPR  56 
TBPR  57 
TBPR  58 
TBPR  59 
TBPR  60 
TBPR  61 
TBPR  62 
TBPR  63 
TBPR  64 
TBPR  65 
TBPR  66 
TBPR  67 
TBPR  68 
TRPR  69 
TBPR 


70 
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C  PPAMF. 

t 

r.  - Outputs - 

c 

f  PRINTOUT.  IMF  ONLY  FUNCT ION  OF  TARPBT  IS  TO  PRINT  OUT  RESUITS, 
f 

C  - EXAMPLE - 

C 

C  THF  OUTPUT  FORMAT  IS  IllUSTRATEO  FELON. 

C 

C  MODE  TARULATtON  FOP  V«  100.00  KtLOTONS 

C 

C 

r. 

C  MOOE  1 

c 

C  OMEGA  VPHSF  AMPLTO  PHASF 

C 

C  .00100  0.33*76  -7.01362F  20  -3.72139 

C  .00700  0.2*372  -8.0239*E  20  -*.56028 

C 

c 

f 

C  NOOE  2 

C 

f,  OMFGA  VPHSE  AMPLTO  PHASE 

C 

C  .00100  0.55296  -7.95321F  10  -2. *0798 

C  .00200  0.68321  -1.23108E  11  -2.3052* 

f 

C  FTC. 

C 

f  - PROGRAM  FOLLONS  BELOW - 

SUBRoljTINF  T AHPRTIYIFLO.MOFNO.RST.KFIN.OMMOO.VPMnO, AMPLTO, PHASOI 

f. 

C  VARIABLE  DIMENSIONING  IS  USE" 

OIHFNSION  KST(l).KFIMl)  .OMMOOI 1 1.  VPMOOC 1)  .AMPLTO  1 1 1 .PMASQl 1 1 
C 

WRITE  16,111  VIELO 

11  FORMAT!  1H1  . IH  , 25X.22HMO0F  TABULATION  FOR  V«,F9.?,9H  KIL0TCNS1 

C 

f.  START  OF  OUTER  00  LOOP 
00  50  H-l.NOFND 
C 

WAITE  (6.211  II 

21  FORMAT (IH  ///.IH  ,*X,  5HM00E  , I3/F.  IH  ,9X, 5H0MF6A.9X, 5HVPHSE.9X. 

1  AHAMPLTO.BX .5MPHASE/  > 

C 

*t«XST(!!! 

R2«RFIIj(tn 

r. 

C  START  OF  INNER  OC  LOOP 
00  50  J»Rl,K? 

C 

50  WRITE  16,511  0MMC0( J I ,  VPMOD!  J  t . AM*LTO( 4) .PHASOC J 1 

51  FORMAT!  IH  »*X.Fl*,5«Fl*«5,lPGl*,5,0PFH*.51 
C  END  OF  LOOPS 

C 

RETURN 

ENO 


TBPP  T1 
Tppp  72 
TBPR  73 
TBPR  7* 
TBPR  75 
TBPR  76 
TBPR  77 
TBPR  78 
TBPR  79 
TBPR  *0 
TBPR  81 
TBPR  62 
TBPR  83 
TBPR  8* 
TBPR  85 
TBPR  86 
TBPR  87 
TBPR  88 
TBPR  89 
TBPR  90 
TBPR  91 
TBPR  92 
TBPR  93 
TBPR  9* 
TBPR  95 
TBPR  96 
TBPR  97 
TBPR  98 
TBPR  99 
TBP*  100 
TBPR  101 
TBPR  102 
TBPR  103 
TBPR  10* 
TBPR  105 
TBPR  106 
TBPR  107 
TBPR  108 
TBPR  109 
TBPR  110 
TBPR  111 
TBPP  112 
TBPR  113 
TBPR  11* 
TBPR  115 
TBPR  116 
TBPR  117 
TBPR  118 
TBPR  119 
TBPR  120 
TBPR  121 
TBPR  122 
TBPR  123 
TBPR  12* 
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TBPR  127 
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r 

TMPT  •Sti«ROUTtNFt  7/10/ 6R 

TMPT 

1 

r 

TMPT 

2 

c 

TMPT 

3 

r 

- ABSTRACT - 

TMPT 

A 

r. 

TMPT 

S 

c 

TITLE  -  TMP  < 

TMPT 

6 

c 

CAI.CU 

'  STION  A NO  PLOTTING  Of  PAR-FIELD  TRANSIENT  RESPONSE  TO  A 

TMPT 

7 

f 

PRFSSU’E  SOURCE  IN  THE  ATMOSPHERE 

TMPT 

* 

f 

TMPT 

4 

c 

THE  RESPONSE  OF  MODE  N  IS  FOUND  BY  INTEGRATING  IAMPLTO  * 

TMPT 

10 

f. 

t'SI  OMEGA  *  IT  -  R/VP!  ♦  PHASa)  OVER  OMEGA  FROM  OMMOO 

TMPT 

tl 

c 

IKSTINM  TO  OmMOOIkFININI!  ANC  OtVlOlNG  R¥  SQRTIRI.  VP. 

TMPT 

12 

r 

PHASO.  AND  AMPL TO  APE  FUNCTIONS  OF  BOTH  N  AND  OMFGA.  THE 

TMPT 

13 

c 

TOTAL  RESPONSE  IS  THE  SUM  OF  THE  MODAL  RESPONSES.  THE 

TMPT 

14 

c 

RESPONSE  IS  CALCULATED  FOP  Tl“F  TFI*ST  AND  AT  INTERVALS 

TMPT 

IS 

c 

OF  OELTT  THEREAFTFR  UNTIL  TFNO  IS  REACHFO.  THE  VALUE  OF 

TMPT 

16 

c 

IOPT  DETERMINES  MHAT  HILL  BE  CALCULATED.  PRINTEO  ANO 

TMPT 

17 

c 

PLOTTFO.  ISEE  INPUT  LIST  F0»  POSSIBLE  IOPT  VALUES.)  THE 

TMRT 

IB 

c 

RESULTS  ARE  TABULATED  IN  THE  PRINTOUT  AND  GRAPHED  BY  THE 

TMPT 

14 

f 

CALCOMP  PLOTTER. 

TMPT 

20 

c 

TMPT 

21 

c 

LANGUAGE 

FORTRAN  IV  060.  REFERENCE  MANUAL  C28-6515-4) 

TMPT 

22 

c 

AUTHOR 

J.W.POSFY,  M.I.T. .  JUNE .146 B 

TMPT 

23 

c 

TMPT 

24 

r 

TMPT 

25 

c 

- usage - 

TMPT 

26 

c 

TMPT 

27 

f 

FORTRAN 

SUBROUTINE  AKt  IS  CALLED 

TMPT 

26 

r. 

TMPT 

24 

c. 

f.AI  COMP 

PLOTTER  SUBROUTINES  PL0T1.  AXIS1,  NUMBR1.  SYMBL5.  AND 

TMPT 

30 

c 

SCLGPH  ARE  CALlEO  TO  WRITE  THE  CALCOMP  TAPF.  SUBROUTINE  NEWPt  T 

TMPT 

31 

c 

MUST  HAVE  BEEN  CALLEO  PRIOR  TO  CALLING  TMPT,  AND  ENDPLT  MUST  BF 

TMPT 

32 

r 

CAUEO  AFTFr  RETURNING  FROM  TMPT.  ISEE  MAIN  PROGRAM! 

TMPT 

33 

f 

TMPT 

34 

c 

fortran  usagf 

TMPT 

35 

r 

CALL  TMPTITEIRST .TENO.DELTT.ROBS.MOFNO.KST.KF tN.OMMOD. VRMODt AMPL TO 

TMPT 

36 

c 

I  .PHASO 

.IOPT! 

TMPT 

37 

c 

T“PT 

36 

r 

INPUTS 

TMRT 

34 

r. 

TMPT 

40 

c 

TFIRST 

TIMF  AT  WHICH  TABULATION  ANO  PLOTTING  OF  RESPONSF  IS  TO 

TMPT 

41 

c 

R*A 

BFGIN  ISEC1 

TMPT 

42 

r. 

TMPT 

43 

r 

tfno 

TIMF  AT  WHICH  ABULATION  AND  PLOTTING  OF  RFSPONSF  IS  TO 

TMPT 

44 

r. 

«*4 

FND  I.LE.ITFIRST4S400.II  I  SEC  1 

TMPT 

45 

r 

TMPT 

46 

f. 

0ELTT 

TIMF  INTERVAL  BETWEEN  SUCCESSIVE  CALCULATIONS  GF  THE 

TMPT 

47 

c 

R*4 

RESPONSF  (.GF.HTENO-TFIRSTl/lOOOH  (SFCI 

TMPT 

48 

r. 

T«RT 

44 

c 

ROBS 

DISTANCF  OF  THF  OBSFRS 7R  FROM  THE  SOURCE  OF  THE  DISTUR¬ 

TMPT 

50 

c 

R*4  • 

BANCE  IRM| 

TMPT 

51 

r. 

TMPT 

52 

c 

MOFNO 

NUMBER  CF  MOOES  FOUND  I.LE.IOI 

TMPT 

53 

r 

1*4 

TMPT 

54 

c 

TMPT 

55 

c 

KST 

FlFMFNT  N  of  THIS  VECTOR  IS  NUMBER  OF  OMMOO  ELEMENT  WHICH 

TMPT 

56 

r 

t«4<0) 

IS  FIRST  FREQUENCY  CONSIDERED  FOR  MODE  N 

TMPT 

57 

r. 

TMPT 

SB 

r. 

KFIN 

ELEMENT  N  nF  THIS  VFCTOR  IS  NUMBFR  OF  OMMOO  FLFMENT  WHICH 

TMPT 

54 

c 

1*4101 

IS  1  AST  FREQUENCY  CONSIDERED  FOR  t TOE  N 

TMPT 

60 

r 

TMPT 

61 

c 

OMMOO 

ELFMFNTS  OF  THIS  VECTOR  NUMBERED  KSTINI  THROUGH  KF|N|N) 

TMPT 

62 

c 

R*4I0I 

ABF  THF  VALUES  OF  FREQUENCY  1  IN  INCREASING  ORDER!  FOR 

TMRT 

63 

r 

WHICH  THE  CORRESPONDING  MODE  N  PHASE  VELOCITIES  HAVE  RFEN 

TMPT 

44 

r 

DETERMINED 

TMRT 

65 

r 

TMPT 

66 

r 

VPMOO 

VFfTnR  OF  PHASE  VFtOCITIEF  WHICH  CORRESPOND  TO  THE  FRE¬ 

TMPT 

47 

r 

R*4(0) 

QUENCIES  OF  7FCT0P  "Minn 

TMPT 

AB 

c 

IMPT 

64 

r 

AMPL TO 

VAlUFS  OF  AMPLITUDE  FUNCTION  IN  AKI  INTEGRAL  (ELEMENTS 

TMPT 

7C 
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IMPT 

PAG* 

m 


287 


4*4101  CORRESPOND  IMRECTIY  TO  FLEHFNTS  OF  OHMOOI  IOYNES/CM**2! 

HASQ  TEAM  IN  ARGUMENT  OF  COS  IN  AR!  INTEGRAL  WHICH  tS  INOEPEN- 
R»4I0!  DENT  OF  TIME  ANO  OISTANCF  IR08SI 

OPT  COMPUTATION  ANO  P«!NT  OPTION  INDICATOR 

1*4  «  1.2.. ...10  CALCULATE.  PRINT  ANO  PLOT  MODE  NO.  TOPT  ONL 

-  11  CALCULATE.  PRINT  ANO  PLOT  ALL  NODES  AS  WELL  AS  THE 
TOTAL  RESPONSE 

>  12  CALCULATE  ALL  HOOFS.  PRINT  ANO  PLOT  TOTAL  RESPONSE 
ONI* 


OUTPUTS 


THE  ONLY  OUTPUTS  ARE  THF  PRINTOUTS  ANO  PLOTS  CALLED  FOR  AY  tOPT. 

ALL  GRAPHS  ARF  DRAWN  TO  THE  SAME  SCALE.  THE  PRESSURE  SCALE  IS 
DETERMINED  AY  THE  MAY  I MUM  AMPLITUDE  OF  THE  TOTAL  PRESSURE.  ANO  THE 
TIMF  SCALP  is  600  SEC  PER  INCH.  PRFSSURF  IS  EXPRESSED  tN  OYNES/CH* 


- PROGRAM  FOLLOWS  AFLOW - 


SIIAROUTINE  TMPTITFIRST.teNO.OELTT.ROBS, 

1  MOFND.KST  tKFtN.OMMOO.VPMOD. AMPLTO.PHASOi IOPT) 

DIMENSION  KSTI 10 1 .KFINI101 .ONMOOI 1000 1 . VPMODI 10001 • AMPLTDI 1000) . 

1  PHASOI 10001 . Tt 1001 1 , TOTINTI 1001 1  .TNlNTI 10.1001 1 .VI1001 1 

VAX  IS  VECTOR  OF  I ITFRAl  CONSTANTS.  ELEMENT  N  IS  THE  EIGHT  SPACE  LABE 
FOR  THF  PRESSURE  AX t S  ON  THF  GRAPH  OF  THE  MODE  N  RESPONSF. 

DOUBLE  PRECISION  YAXI10I 

DATA  VAX/RM  MODE  1  .AH  MODE  2  .*H  HOOF  3  ,8H  MODE  A  .AH  MODE  5  . 

1  AH  HOOF  6  .AH  POOF  T  ,8H  MODE  B  .AH  WCOE  9  , AH  MOOE  10/ 

IFIIOPT  .NF.  Ill  r.n  TO  A 
WRITE  16.21 

2  FORMAT  I 1H1 .  AOX.23HTABULATION  Of  RESPONSES//! 

WRITE  16,31 

3  FORMAT  UH  .20X.AHTIME,12X,3H70TAL,11X,6FN00E  1.10X.6HM0DE  2.10X, 

1  6HM0DE  3.10X.6HMOOE  A,10X,6HM00F  3/1 

A  IFHOPT. FQ.12!  WRITEI6.T33I 

TS3  FORMAT  1 1H1  ,A3X, AOHT ABULAH ON  OF  ACOUSTIC  PRFSSURE  RESP0NSE///1H  , 
1  AAX.10HT1MF  ISEC»,«»X,1SHP  I DVNES/CM««2!// > 

l  IS  NUMAER  OF  TIMES  AT  WHICH  RESPONSE  IS  TO  BF  CALCULATFD 
L  -  CTENO  -TFIRST1  /  DELTT  ♦  1 

SITF  IS  THE  LFNGTH  OF  THE  TIME  AXIS  IN  INCHFS 
SITE  ■  I  TENO  -  TFIRST  |  /  600.0 

PRESET  ALL  RESPONSE  VALUES  Tn  0.0 
s  DO  7  K-l.L 
TOTINTIKI  «  0,0 
DO  7  N«1.10 

7  TNINTIN.RI  •  0,0 

SET  UP  TABLE  OF  TIMES  BEGINNING  AT  TFIRST  ANO  TAXING  VALUES  OF  TIME  AT 
INTERVALS  OF  DELTT  UNTIL  TEND  IS  REACHED 
A  on  10  17*1.1 

10  Tin!  «  TFIRST  ♦  IIT-n*DELTT 

BEGIN  SFT  UP  Tfi  C.AICULATF  MODE  1  RFSPONSE 
N  •  l 

IF  T0PT.LE.10  CAI C.Ul ATF  ONLY  NnnF  IOPT  AFSPnNSF 
IF  I IOPT.LF. 10!  N  ■  IOPT 

11  MOST  •  XSTINI  ♦  1 
NOFN  «  XF1NIN1 

THE  HOOF  N  RFSPONSE  IS  FOUND  FOR  ALL  VALUES  OF  T  BEFORE  NEXT  MODE  IS 


TMPT  7j 
THAT  72 
TMPT  73 
TMPT  TA 
TMPT  73 
TMPT  76 
TMPT  77 
TMPT  78 
TMPT  19 
TMPT  SO 
TMPT  81 
TMPT  82 
TMPT  A3 
TMPT  BA 
TMPT  AS 
TMPT  86 
TMPT  87 
TMPT  68 
TMPT  89 
TMPT  90 
TMPT  91 
TMPT  92 
TMPT  93 
TMPT  9A 
TMPT  95 
TMPT  96 
TMPT  97 
TMPT  98 
TMPT  99 
THAT  100 
TMPT  101 
TMPT  102 
TMPT  103 
TMPT  10A 
TMPT  103 
TMPT  106 
TMPT  107 
TMPT  108 
TMPT  109 
TMPT  110 
TMPT  111 
TMPT  112 
TMPT  113 
TMPT  114 
TMPT  115 
TMPT  116 
TMPT  117 
TMPT  118 
TMPT  119 
TMPT  120 
TMPT  121 
TMPT  122 
TMPT  123 
TMPT  12A 
TMPT  123 
TMPT  126 
TMPT  127 
TMPT  128 
TMPT  129 
TMPT  130 
TMPT  131 
TMPT  132 
T'APT  133 
TMPT  134 
TMPT  133 

TMPT  136  PROGRAM 

TMPT  137  TMPT 

TMPT  138 

T"PT  139  PAGE 

TMPT  140  RA 
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*«*»ataass®saS^^^BP 


f  fONS!OFRFO 

no  5i  it-i.l 

c 

C  SET  A2«PH?  FOUAL  TO  VALUES  FOR  At, PHI  IN  FIRST  INTEGRATION  INTERVAL 
A?  •  AHPLTOIKSTINI I 

S2» OMMOOIKST INI  I  /VPMODIKSTI Nt  t-PHASOIKST INI l/RORS 

SLON-TIITI/ROBS 

B!ODlF«StON-l.O/VPMnntKSTINI  I 

PH2-ROBS-IONMOOIKSTINI l-OinOLEPPHASOIKST INI l/ROBSI 
CTR!G2«CnSIPH2» 

STRIG2-SINIPH2I 

C 

C  THF  INTEGRAL  OF  UNPLTO  *  COSIOMEGA  •  IT  -  RORS/VP)  ♦  PHASQII  OVER  THE 
C  INTERVAL  FROM  OMMOOIKSTINI »  TO  OMMODlKF ININI I  IS  FOUND  BY  SUMMING  THE 
C  INTFGRALS  FROM  OHNOOiNON-t)  TO  OMNDOINOMI  FOR  NOM  FROM  KSTINI*!  TO 
r  KFININI 

00  50  NOM  «  NOST.NOFN 
At  •  A? 

PHI  *  PH? 

CTRIG1»CTRIG2 

STRIG1-STRIG? 

Sl»S2 

A?  «  AMPLTOINOMI 

S2-0MH00I N0M1 / VPMOO I NOM I -PH ASOl  NON! /FORS 

ntnniB-SlOM-l.O/VMNODlNDNI 

PH2.R0BS* IOMMODI NOM I *0!00LF»PHAS0t  NOM I /ROBS  I 

omegi-ommooinom-ii 

OMEG2>OMMOOINOM) 

OELPH  •  RflBS  *  I  SLrM  *  I  0MEG2  -  OMEGl  t  -  1  S?  -  SI  I  I 
CALL  AKII0MEG1.0MFG/,Al<A2.CYRtGl. STRICT. CV.IG2.STRIG2. 

I  OELFH.AKIINTt 

50  TNINTIN.ITI  •  TNINf IN. IT J  ♦  Ax  t !  NT 

r  *• 

C  PRESSURE  IS  F0>,‘‘v  TO  I  1  /  SORTIROBSI  I  •  I  VALUE  OF  OMEGA  INTEGRAL  I 

51  TNINTIN.ITI  ■  1 1 /SORT  I ROBS  1 1  *  TNINTIN.ITI 
C 

.C  IF  I0PT.LF.10  ALL  THAT  IS  RFOUESTFO  IS  THF  MODE  tOPT  RESPONSE.  NHICH 
C  HAS  JUST  BEEN  CALCULATED 

IF  IIOPT.LF.lOl  GO  TO  1M 

r 

f  1NCPEASF  MODE  NIIMBFR  BY  ONE 
N  -  N  ♦  1 

C 

C  IF  N  IS  GREATFR  THAN  MOFNO.  ALL  MODAL  RESPONSES  HAVE  BFEN  DETERMINED 
IF  IN.LE.MDFNOI  GO  TO  11 

C 

r  FOR  EACH  TIME  IN  T  SET  TOTAL  PRESSURE  EQUAL  TO  SUM  OF  MODAL  PRESUMES 
DO  60  IT-1. I 
DO  51  N  -  l. MOFNO 

53  TOTINTI | T I  ■  T0TINTIIT1  ♦  TNINTIN.ITI 
tFlIDPT.FO.  Ill  C.0  TO  55 
C 

C  MR! TF  TIME  AND  CORRESPONDING  TOTAL  ACOUSTIC  RESPONSE  IDYNES/CM-P2I 
MRITE  16,551  Tl  I T! ,  TOTINTI  I T! 

55  FORMAT  IlM  ,5<)X,F9.1.10X,F12,2( 

C 

f.  M«EN  tOPT.FO.12  ONLY  TOTAL  RFSPONSE  IS  PRINTED 
IF  I I0PT.E0.I2I  60  TO  59 
r 

C  MHFN  IOPT.EO.il  Alt  MODAL  RESPONSES  A»F  ALSO  PRINTFD 
55  MM  .  M|  NCI  MOFNO,  5 1 

MRITE  16.571  IT. Tl ITI.TOTINT' I T| , (TNINTIN.ITI, N-l.MMI 
57  FORMAT  IlH  , 3X, 15, 10X.F9. 1 , *»  , r 1 ?. ? ,*x.F 12. 2, 5X.F1 2.2.5X .F12.2 , 

1  6X,F12.?,5X,F1?.?» 

59  CONTINUE 

60  CONTINUE 

IF  IMDFNO  .IF.  5  .OR.  IOPT  ,Nt-  .  u  I  GO  TO  65 
M* I 7p  16,611 

61  FORMAT  1 1H0«  ?0X .5HT IMF, I ?X ,5HT 0  r  At , 1 1 X . 6HM0DE  6.10X.6HMOOE  7.10X, 

1  6HN00E  B, 1  OX, 6HM00F  9, 10X .THMOOE  10/ 1 
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00  63  ITM.L 

63  NRIIE  (4,37!  |T,T(lT|,TOTINT( IT! » ( TNINT(N,IT) »N»6,R0FN0! 

63  CONTINUE 

66  CAU  PL0TU2...3,-3I 
SIZE  «  (Ttll-Tll!|/600, 

IS  (I0PT.IE.10!  GO  TO  107 

CtU  OXOVmOTINT.t, 3.0, UNIN, DV.NO.KI 
UNIN  ■  AINT(UNIN/23t  «  73.0 
UNIN  *  6NIN1IUNIN.-73.I 
OT  »  AftSIUNINI 

IF  I0FT.E0.17  FI OT  QNiV  THE  TOTAL  ACOUSTIC  RESPONSE 
IF  I IOFT.EO. 121  GO  TO  TO 

ORAN  FNESSURF  AXIS 

CAU  FL0T1I0..0..31 
ADC  «  NOFNO 

CALL  FLOTUAFC  ,0.,2I 
00  63  NM.NDFHO 
00  67  JM.l 

67  Y(JI  .  -1  *  TNINTINrJI 
66  CAU  FL0Tl(l*.0.,-3t 

SLOT  ACOUSTIC  RESFONSE  (0VNES/CNF*2I  OF  NODE  N  VERSUS  TINE  (SEC! 

63  CAU  SCLGPHIV.T tl,0*,l,0. ,OV,T(  1) ,600, 1 

70  00  73  JM.l 

73  V(J)  ■  (-11  •  TOTlNT ( Jl 

ORAN  PRESSURE  AXIS 
73  CAU  FLOTK0..0..3! 

CAU  PL07U3..0..2I 

CAU  F10T1I1.3.0..-3I 

CAU  NUN6RK . 3, -.13, .13, OV. 160*. 01 

CAU  SVFRI.3(.6,-.13,.13,  'NICRORARS  FER  INCH*, 180,,  181 
CAU  AXISK I  .3,0.  ,'  *,1,S(2E,30., TUI, 1800..0. 0,3.1 
CAU  SVNRL3(1.8.7.,.13.*TINF  ( SFC I  •  ,30.  ,  101 
CAU  SCLGFH(V,T,L.0..1.0.,OV,T(1|,600.) 

CAU  FL0TU8..-.3.-3I 
GO  TO  700 

FRINT  HISTORY  OF  NODE  IOFT  ONLY 
101  NRITF  (6,107!  IOFT 

107  FORNAT  I 1H1 ,43X • 13HTARULATI0N  OF  NODE  ,17,  3H  RESPONSE/// 1H  ,48X, 
l  10HTIHF  |SFC!,3X,13HF  inYNSS/CN**2l//l 
00  103  ITM.L 

103  N*1TE  (6,104!  T( ITI ,TN1NT( I  OPT, IT! 

104  FORNAT  (1H  ,43X, F3.1,10X«F12.?t 
60  TO  66 

IF  IOFT .IT. t 1  PLOT  ONLY  ACOUSTIC  RESPONSF  OF  NOOE  (OPT 

107  0(1  108  JM.l 

108  Y( Jl  *  (-1)  •  TNINTUOPT.J) 

OF Tf RHINE  SCALE  FOR  PRESSURE  AXIS  NHFN  IOFT.LT.il 
111  CAU  OXOY1I Y,l,2,,UNIN,0Y,N0fKI 
UNIN  «  AINTIUNIN/731  ♦  25.0 
UNIN  ■  ANIN1  (IININ, -23, 1 
OV  «  ARSIUNtN! 

GO  TO  73 

200  RETURN 
ENO 
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f.  TOTINT  ISUBROUTINFI 
C 

C.  - ABSTRACT - 

c 

f  TITLE  -  TOTINT 
f. 
f 


7J27/6R 


THIS  SUBROUTINE  COMPUTES  THE  TOTAL  INTEGRAt 
XINT  «  INTEGRAL  OVER  2  FAON  0  TO  INFINITY  OF 
»3m*um»*Fm»  ♦  a2(2)*f2<z)>**z 


m 


THE  ATNOSPHFRE  is  ASS1IHFO  TO  8F  REPRESENTED  IN  A  MULT ILAYFR  FOR 
WITH  A1.A2,  AND  AT  CONSTANT  IN  EACH  LAVER.  THE  INTEGRAL  IS 
EVALUATED  AS  A  SON  OF  INTEGRALS  OVER  INDIVIDUAL  LAVERS. 

THE  FUNCTIONS  FII2I  AND  F2C2)  ARE  CONTINUOUS  ACROSS  LAVER 
BOUNDARIES  ANC  SATISFY  THE  REStOUAL  EQUATIONS 


DF1I2I/02  «  AIl.n*Fl(E|  ♦  All,2l*F2(2t 
OF2»n/D7  «  AI7,n*Flin  ♦  AI7.2I*F2<2» 


I2A 

128 


WHERE  THE  FLEPFNTS  OF  THE  NATRIX  A  ICONPUTEO  BY  SUBRDUTtNF  AAAA 
ARE  CONSTANT  IN  EACH  LAVER. 

THE  FUNCTIONS  FI ( 21  AND  F2I2I  ARF  ASSUNEO  TO  SATISFY  THE  UPPER 
BOUNDARY  CONDITION  THAT  ROTH  DECREASE  EXPONENTIALLY  WITH 
INCREASING  HEIGHT  IN  THE  UPPER  HALFSPACE.  THE  NORNAL I2ATION 
OF  THE  FUNCTIONS  IS  SUCH  THAT  AT  THE  LOWFR  BOUNDARY  20  OF  THE 
UPPER  HALFS°ACF 


F1I201*  -$QRTIGI*AI1,2I 
F?l 70l«  SORT (G 1*1 G*AI 1. 1 1 1 


WITH 


G  -  SORT! All . 1 1**2  ♦  All. 21  •Ali'. Ill 


ISA 

I3B 


IB) 


THE  ELENENTS  AIS.JI  IN  EONS.  131  AND  141  ARE  THOSE  APPROPRIATE 
TO  THE  UPPER  HALFSPACE.  IF  G**2  IS  NEGAT1VF.  THF  PROGRAH 
RFTURNS  L«-l.  OTHERWISE  IT  RETURNS  l«l. 


PROGRAH  NOTES 


LANGUAGF 

AUTHOR 


THE  1NTFC.RATI0N  OVER  THE  tlPPFR  HALFSPACE  IS  PERFORMED  BY 
CALLING  UP|NT.  THE  INTEGRATIONS  OyFR  THE  LAYERS  OF  FINIT 
THICKNESS  ARE  PERFORHFO  BY  CALLING  elint. 

THF  PAR AHETFRS  A1.A2.A3  DEPEND  IN  GENERAL  ON  ANGULAR 
FREQUENCY  ONEGA,  Hi,.mON»AL  WAVENUMBER  COMPONENTS  AKX 
ANO  ARY,  SOUND  SPEED  C.  AND  WIND  VFLOCITY  COMPONENTS  VX 
•  ANO  VY.  THF  FORHUl  AS  USED  ARE  CONTROLLED  BY  THE  INPUT 
PARAMETER  IT  WHICH  IS  TRANSMITTED  TO  SUBPOUTINF  USEAS. 

THF  PAR AMFTERS  DEFINING  THF  MULTILAVFR  ATMOSPHERE  ARF 
PRFSUMEO  STORED  IN  COMMON 

-  FORTRAN  IV  1360,  REFERENCE  MANUAL  C28-6515-4) 

-  A. D. PIERCE.  M.I.T.,  JULY, IRAS 

- CALI  INC,  SEQUENCE - 


SFE  SUBROUTINE  NAMPOE 

OIMFNSION  rillOOl.VXt II 001. VYIUOOI.HHIOOI.PHIH  1001, PHI21 1001 
COMMON  1MAX.Ct.VXl.VY1.MI  I  THESE  MUST  BF  IN  COMMON  I 

CALI  TOTINTIOMFGA.AXX.AKY, tT.L . X INT.PMI1 .PHl ?» 

- FXTE8NAl  SUBBOutjnFS  REQtllRCO - 

AAAA.MMMM.CM.SM  .USEAS.UPINI.fi  INT.BBPB 


TOT  I 

1 

TOTt 

2 

TOTI 

3 

TOTt 

4 

TOTI 

5 

TOTI 

6 

TOT! 

7 

TOT! 

8 

TOTI 

9 

TOT! 

ID 

TOTI 

11 

TOT! 

12 

TOT! 

13 

TOT! 

14 

TOTI 

IS 

TOTI 

16 

TOTt 

17 

TOTI 

18 

TOTI 

IB 

TOTt 

20 

TOTI 

21 

TOTI 

22 

TOT! 

23 

TOTI 

24 

TOTI 

28 

TOTI 

26 

TOTI 

27 

TOTI 

28 

TOTI 

21 

TOTI 

30 

TOTI 

31 

TOTI 

32 

TOTI 

33 

TOTI 

34 

TOTI 

35 

TOTI 

36 

TOTI 

37 

TOTI 

38 

TOT! 

3D 

TOTI 

4C 

TOTI 

41 

TOTI 

42 

TOT! 

43 

Ton 

44 

TOT! 

45 

TOTI 

46 

TOTI 

47 

TOT! 

48 

TOTI 

49 

TOTI 

50 

TOT! 

51 

TOT! 

52 

TOTI 

53 

TOTI 

54 

TOT! 

55 

TOT! 

56 

TOT! 

57 

TOTI 

58 

TOT! 

59 

TOTI 

60 

TOTI 

61 

TOTI 

62 

TOTI 

63 

TOT! 

64 

TOT! 

66 

TOTI 

66 

PROGRAM 

TOTI 

67 

TOTtNT 

TOT! 

66 

TOTI 

6R 

PAGE 

TOT! 

7C 

87 

291- 


c 

TOTI 

Tl 

c 

AAA*  AND  8B8B  AAE  CAUEO  BY  GLINT. 

TOTI 

72 

c 

CAt  AND  S*I  ANf  CAUEO  BY  BBBB. 

TOTI 

73 

c 

TOTI 

74 

c 

- argument  LIST— 

TflTI 

7S 

c 

TOTI 

76 

f 

oncga 

R«  NO  INF 

TOTI 

77 

c 

MX 

R*4  ND  1NE 

TOTI 

78 

c 

ANY 

R*A  ND  INE 

TOTI 

79 

c 

IT 

I*A  NO  INF 

TOTI 

80 

c 

L 

T*A  NO  OUT 

TOTI 

81 

c 

XtNT 

IRA  NO  OUT 

TOTI 

82 

c 

EHIl 

R«A  100  INE 

TOTI 

83 

r 

EMI? 

R*A  100  INF 

TOTI 

BA 

c 

TOTI 

88 

c 

COMMON  storage  used 

TOTI 

86 

c 

COMMON  1MAX.CI.VXt.VYI.HI 

TOTI 

87 

c 

TOTI 

88 

c 

(MAX 

IRA  ND  ’NR 

TOTI 

89 

c 

C! 

RRA  100  INF 

TOTI 

90 

c 

VXI 

R*A  100  INF 

TOTI 

91 

c 

VV1 

R*A  100  INE 

TOTI 

92 

c 

HI 

R*A  100  !NR 

TOTI 

9S 

c 

TOTI 

9A 

c 

- INRUTS - 

TOTI 

95 

f. 

TOTI 

96 

c 

OMEGA 

■ANGULAR  FREOUENCY  IN  RAOIANS/SEC 

TOTI 

97 

c 

ARX 

■X  COMRONFNT  OF  HAVE  NUMBER  VECTOR  IN  KN*E|*1) 

TOTI 

98 

c 

ANY 

■V  COMRONFNT  OF  HAVE  NUMBER  VECTOR  IN  KN**I-1I 

TOTI 

99 

c 

IT 

•PARAMETER  TRANSMITTED  TO  USEAS  DEFINING  FUNCTIONAL 

TOTI 

100 

r. 

OERENOENCF  OF  A1.A2.A3  CONFUTED  BY  USEAS. 

TOTI 

101 

c 

EHI1 III 

-VALUE  OF  FI  AT  BOTTOM  OR  LAVE*  I 

TOTI 

102 

c 

EMI? 1 t 1 

-VALUE  OF  F2  AT  BOTTOM  OF  LAVER  I 

TOTI 

103 

c 

IMAX 

■NUMBER  OF  ATMOSEHERIC  LAVERS  WITH  FINITE  THICKNESS 

TOTI 

109 

c 

cun 

■SOUND  SREEO  1KN/SECI  IN  l-TH  LAVE* 

TOTI 

105 

c 

vxun 

■X  COMEONENT  Of  U1N0  VELOCITY  IKN/SECI  IN  I-TM  LAVER 

TOTI 

106 

c 

vYim 

-V  COMEONENT  OF  NINO  VELOCITY  1KM/SECI  IN  l-TM  LAVE* 

TOTI 

107 

c 

huh 

■THtCKNESS  IN  KM  OF  I-TH  LAYER 

TOTI 

108 

r. 

TOTI 

109 

c 

- OUTEUTS - 

TOTI 

110 

r 

TOTI 

ill 

r 

i 

*1  OR  -1  OEEENOING  ON  UHETHER  UEEER  BOUNOARY  CONDITION 

TOTI 

112 

f. 

CAN  OR  CANNOT  BE  SATISFIEO.  SFE  SUBROUTINE  UEINT 

TOTI 

113 

r 

X1NT 

■INTEGRAL  OVER  1  FROM  0  TO  INFINITY  AS  OEFINED  IN  THE 

TOTI 

1 14 

c 

ABSTRACT. 

TOTI 

115 

c 

TOTt 

116 

c 

TOTI 

117 

c 

- PROGRAM  FOLLOHS  BELOW - 

TOTI 

118 

c 

TOTI 

119 

c 

TOTI 

120 

SUBROUTINE 

TOTINTIOMFGA.AkX.AKY .IT.L.XINT.FHI1.EHI2) 

TOTI 

121 

r. 

• 

TOTI 

122 

c 

DIMENSION  AND 

COMMON  STATEMENTS 

TOTI 

123 

DIMENSION  Cl  I100I.VXI  UOOI  ,VYI1 1001  .H1 11001  .EMC?. 21 

TOTI 

124 

DIMENSION 

EHIII100).EHI2I100I 

TOTI 

125 

COMMON  IMAX.C 1 , VXI.VY1 ,H| 

TOTI 

126 

c 

TOTI 

127 

c 

COMEUTATION  OE 

1  CONTRIBUTION  FROM  UEEER  HALFSEACE 

TOTI 

128 

J« |MAX*1 

TOTI 

129 

C-CIIJI 

TPTI 

130 

VX«VX11J) 

TOTI 

131 

VYaVVIUI 

TOTI 

132 

CALL  USEASIOMEGA.ANX.AKY.C. VX, VY. IT. A1 . A2.ASI 

TOTI 

133 

CALL  UE |NT 1  OMEGA. ANX. *K Y.C.VX.VY.Al .A2.L.F1.F2.UINT) 

TOTI 

134 

r 

TOTI 

135 

c 

CHECK  IF  t  NEGATIVE 

TOTI 

136 

IFH  .IT. 

01  RETURN 

TOTI 

137 

c 

TOTI 

138 

r 

UE  DENOTE  THE 

CONTRIBUTION  *3*U!NT  BY  XINT,  AS  The  CONFUTATION  CON- 

TOTI 

139 

c 

TIMIES,  XINT  UHL  SUCCESSIVELY  NEEKESFNT  THE  VARIOUS  SUBTOTALS  UNTIL 

TOTJ 

140 

program 

TOTI NT 

PAGE 

88 


292' 


■*2&m3®s&wr  ■^<r.^--,r--  *  r~  *&£»*"  *33^5  t  +.<.-*•.*■■. 
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X!NT*A3*UlNT 
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C  START  OF  00  LOOP 
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J*!NAX4I-I 

c 

C  CONFUTATION  OF  CONTRIBUTION  FRON  J-TH  LAVFR  OF  FINITE  THICKNESS. 
C  THE  CURRENT  VALUES  FI  ANO  F?  REPRESENT  F1I7I  AND  F2I2»  AT  TOP  OF 
C  J-TH  LAVE*. 
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UPINT  (SUBROUTINE! 


7/25/68 


- ABSTRACT - 

TtTLF  -  UPINT 

THIS  SUBROUTINE  COMPUTES  AN  INTEGRAL  OF  THE  FORN 

UtNT  «  INTEGRAL  OVER  7  FROM  20  TO  INFINITY  OF 

I Al*Fj ( 21  ♦  A2*F7(7II**2  (11 

THE  FUNCTIONS  E|(2>  AND  E2I2I  ARE  THE  SOLUTIONS  OF  THE  COUFLEO 
ORDINARY  CIFFERENTIAL  EQUATIONS 

0F1/07  -  All*Fl  ♦  A12*F?  I2A 

Of 2/07  «  A21*F1  ♦  A22*F?  1 28 

WHERE  THE  ELEMENTS  OF  THF  MATRIX  A  ARE  INDEFENDENT  OF  2.  THE 
FUNCTIONS  FI (71  AND  F2(2)  ARE  SUBJECT  To  THE  UFFER  BOUNDARY 
CONDITION  THAT  BOTH  DECREASE  EXFONENTl ALLY  WITH  INCREASING 
ALTITUDE.  StNCE  THE  MATRIX  A  IS  COMFUTEO  BY  AAAA,  INSURING 
A(2.2l«-A(t,t),  BOTH  SHOULD  VARY  WITH  HEIGHT  AS  EXPI-6*I2-201I 
WHERE 

G  >  SORT! Alt. ll**2*A( 1.2 t*A(2»l H  (31 

IT  IS  ASSUMED  G**2  IS  POSITIVE.  OTHERWISE  L«-l  tS  RETURNED. 

THE  EXPLICIT  FORMS  ADOPTEO  FOR  FI  AND  F2  WHICH  SATISFY  (2)  ARE 

FI  »S0RY(Gl«A(1.7i*EXF|>G*«2>20tl  UA 

F2  •  SORTIGIFIGFAH,  .)»*FxP(*G*t2-20M  (AB 

THUS  UINT  IS  GIVEN  BY 


LANGUAGE 

AUTHOR 


UINT  *II-A1«A(1,2I+A2«(G*A(1, l 11**21/2.0 

-  FORTRAN  IV  (36D.  REFERENCE  MANUAL  C28-6515-41 

-  A.0.F1ERCE.  M.I.T..  JULY, 1968 

——CALL  ING  SEQUENCE - 


SEE  SUBROUTINE  TOTINT 
NO  DIMENSION  STATEMENTS  REQUIREO 


c 

CALL  UFINTI OMEGA 

.ARX.ARV.C.VX,VY.Al,A2«l.Fl.F2.UINT| 

UP  IN 

46 

c 

UP  IN 

47 

c 

— 

-EXTERNAL  SUBROUTINES  REQUIRED - 

UFIN 

48 

c 

UF1N 

49 

c 

AAAA 

UFIN 

50 

c 

, 

UFIN 

51 

c 

— - 

-ARGUMENT  LIST - 

UFIN 

52 

c 

UFIN 

53 

c 

ONEGA 

R*4 

NO 

INF 

UFIN 

54 

c 

AKX 

R«4 

NO 

INF 

UFIN 

55 

c 

ARY 

R*4 

NO 

INF 

UFIN 

56 

r 

C 

R*4 

NO 

INF 

UFIN 

57 

c 

VX 

R*A 

ND 

INF 

UFIN 

58 

c 

VY 

m 

NO 

INF 

UFIN 

59 

c 

A1 

R*4 

ND 

INF 

UFIN 

60 

c 

A2 

R*4 

NO 

INF 

UFIN 

61 

c 

l 

1*4 

NO 

OUT 

UFIN 

62 

c 

FI 

RH 

NO 

OUT 

UFIN 

63 

c 

F2 

4*4 

NO 

OUT 

UFIN 

64 

c 

UINT 

R«A 

NO 

OUT 

UFIN 

63 

c 

UFIN 

66 

PROGRAM 

r 

NO  COMMON 

STORAGE  USED 

UFIN 

67 

UPINT 

c 

UFIN 

68 

r 

--- 

-INPUTS 

— 

Ur' IN 

64 

PAGE 

c 

UFIN 

70 

90 
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c 

ONEGA 

-ANGULAR  FRFOUENCY  IN  RADIANS/SEC 

UPTN 

n 

c 

AKX 

-X  COMPONENT  OF  UAVF  NUMBER  VECTOR  !N  XH-M-ll 

UP  IN 

72 

r 

AKV 

*Y  COMPONENT  OF  NAVE  NUMBER  VECTOR  IN  KM**(-11 

UPIN 

73 

r 

C 

•SOUND  SPEEO  IN  KM/SEC 

UP  IN 

74 

r. 

vx 

-X  COMPONENT  OF  NINO  VELOCITY  IN  KM/SEC 

UPIN 

75 

c 

vv 

-V  COMPONENT  OF  NINO  VELOCITY  IN  KM/SFC 

UPIN 

76 

c 

At 

-COEFFICIENT  OF  Fi!2t  IN  INTJGRANO 

UPIN 

77 

c 

A? 

-COEFFICIENT  OF  F2I2I  IN  INTEGRAND 

UPIN 

78 

r 

UPIN 

79 

c 

- OUTPUTS - 

UPIN 

SO 

r 

UPIN 

81 

r 

1 

•1  op  -1  OFFENDING  ON  MHETHER  UPPER  BOUNDARY  CONDITION 

UPIN 

82 

c 

OF  FI (Z I « F2(2 1  DECREASING  EXPONENTIALLY  NITH  INCREASt 

UPIN 

83 

r. 

HEIGHT  CAN  OR  CANNOT  BE  SATISFtFO.  IT  REPRESENTS  THE 

UPIN 

84 

r. 

SIGN  OF  G**2  WHERE  G  tS  DEFINED  IN  THE  ABSTRACT. 

UPIN 

65 

r 

*t 

-VALUE  OF  Ft (71  AT  BOTTOM  OF  HALFSPACF,  DEFINEO  AS 

UPIN 

86 

c 

•SORTI GI*A( 1, ? t  FROM  EON.  (4A|, 

UPIN 

87 

c 

F2 

-VALUF  OF  F2IZI  AT  BOTTOM  OF  HALFSPACF,  DEFINED  AS 

UPIN 

88 

r 

SORT(GI*IG4A<  1  •  1 1 A  FROM  EON.  I4BI 

UPIN 

89 

c 

UINT 

-THE  INTEGRAL  DEFINED  BY  EONS.  Ill  AND  (SI  IN  THE 

UPIN 

90 

c 

ABSTRACT 

UPIN 

91 

r. 

UPIN 

92 

c 

UPIN 

93 

r. 

- PROGRAM  FOLLOWS  BELOW - 

UPIN 

94 

c 

UPIN 

95 

r. 

UPIN 

96 

SUBROUTINE  UPINT (OMEGA. AKX,AKY,C.VX,VY.Al,A2,l, FI, F2. UINT) 

UPIN 

97 

DIMENSION  AI7.2I 

UPIN 

96 

r 

UPIN 

99 

c 

COMPUTATION  Op 

A  MATRIX  AnD  OF  X-G«*2 

UPIN 

100 

CALL  AAAAIOMEGA. AKX.AKY.C. VX.VY.A1 

UPIN 

101 

X*A( 1 • II**2*AI 1, 2 l*AI 2, 1 t 

UPIN 

102 

c 

CHECK  ON  SIGN  OF  X 

UPIN 

103 

2  IFI  X  .GT. 

0.0  1  GO  TO  3 

UPIN 

104 

c 

UPIN 

105 

c 

X  IS  NFGATIVF 

UPIN 

106 

l  —  l 

UPIN 

107 

RETURN 

UPIN 

108 

r. 

CONTINUING  FROM 

2  WITH  X  POSIT! VF 

UPIN 

109 

3  L«l 

UPIN 

110 

G-SORTl XI 

UPIN 

111 

GRT-SORT(G) 

UPIN 

112 

F1--C.RT*A(1 

.21 

UPIN 

113 

F2-GRTMG4AI1.1II 

UPIN 

114 

c 

COMPUTATION  OF 

UINT 

UPIN 

115 

UINT- I-Al*A(1.2l4A7*(G4A( 1,1 111**2/2.0 

UPIN 

116 

RETURN 

UPIN 

117 

ENO 

UPIN 

118 

program 

UP!  NT 

PAGE 

91 
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USE AS  (SUBROUTINE) 

- ABSTRACT - 


7/25/68 


TITLE  -  USEAS 

THE  FURPOSE  OR  THIS  SUBROUTINE  IS  TO  CONRUTE  THE  NUNBFRS  Al.  A2 
AND  A)  WHICH  OERENO  ON  ANGULAR  FREQUENCY  OMEGA,  HORIZONTAL  HAVE 
NUMBER  COMRONENTS  AKX  AND  AKY,  THE  SOUND  SREEO  C,  ANO  THE  HtNO 
SRFEO  COMRONENTS  VX  AND  W.  THE  INTEGER  IT  DETERMINES  WHICH 
FORMULAS  ARE  USED  FOR  At,  A2,  AND  A3  ACCORDING  TO  THE  FOLLOWING 
TABLE 


USE  A 
USE  A 
USEA 
USEA 


(IT) 


(All 


( A2I 


(A3) 


1 

2 

3 

A 

5 

6 

7 

8 

4 
10 
11 


1 

0 

1 

1 

1 

1 

G/C 

G/C 

G/C 

G/C 

G/C 


1 

1 

60N*tK00TVI/(C4*2*KI 

B0M/C*R2 

VX*B0M/C**2 

VY*B0M/C**2 

K*0MFGA/BOM**3 

1.0/80H**2 

K**2/B0M**3 

VX*K**2/60M**3 

VV*K**2/B0M**3 


HERE  BOM-OMEGA-KOOTV  IS  THE  OORRLER  SHIFTED  ANGULAR  FREQUENCY, 
KOGTV«AKX*VX*AKV*VY  is  the  dot  rroouct  of  wave  number  with 
THE  WIND  VELOCITY.  ANO  K-SQRT ( AKX**2*AKV**2 )  tS  THE  MAGNITUDE 
OF  THE  WAVE  NUMBER  VECTOR.  THE  ACCELERATION  OF  GRAVITY  G  IS 
TAKEN  AS  .0098  KM/SEC«*2  IN  THE  CONFUTATION.  CONFUTED  VALUES 
SHOULD  BE  IN  KN.SEC  SYSTEM  OF  UNITS. 

LANGUAGE  -  FORTRAN  IV  (360.  REFERENCE  MANUAL  C26-6S15-4I 
AUTHOR  -  A. D. FIERCE,  M.I.T.,  JUNE, 1466 

- CALLING  SEQUENCE - 


SEE  SUBROUTINE  TOT I NT 

NO  DIMENSION  STATEMENTS  ARE  REQUIREO 


HO  COMMON  STORAGE  used 

- INFUTS - 

OMEGA  -ANGULAR  FREQUENCY  IN  RAD/SEC 

Arx  -X  r.ONFONENT  OF  WAVE  NUMBER  VECTOR  IN  KN«*(-1I 

AKY  -Y  COMFONENT  OF  WAVE  NUMBER  VECTOR  IN  KN**(-1| 

C  -SOUNO  SFEEO  IN  KN/SEC 

VX  -X  COMFONENT  OF  WtNO  VELOCITY  tN  KM/SEC 

W  -Y  COMFONENT  OF  WIND  VELOCITY  IN  RM/SEC 

IT  -CONTROL  PARAMETER  *0A  SELECTION  OF  FORMULAS  ISEE 


USEA 
USEA 
USEA 
USEA 
USEA 
USEA  10 
USEA  11 
USEA  12 
USEA  13 
USEA  1A 
USEA  IS 
USEA  16 
USEA  17 
USEA  IB 
USEA  14 
USEA  20 
USEA  21 
USEA  22 
USEA  23 
USEA  24 
USEA  25 
USEA  26 
USEA  27 
USEA  28 
USEA  29 
USEA  30 
USEA  31 
USEA  32 
USEA  33 
USEA  34 
USEA  35 
USEA  36 
USFA  37 
USEA  38 
USEA  34 
USEA  40 


IT- 

USEA 

41 

CALL 

USE AS (OMEGA 

•  AKX, 

AKV.C, VX, VV, IT, Al, A2,A3) 

USEA 

42 

A2.A3 

ARE  NOW  AVAILABLE  FOR  FUTURE  COMPUTATIONS 

USEA 

43 

USEA 

44 

EXTERNAL  LIBRARY 

subroutines  are  required 

USEA 

45 

USEA 

46 

- ARGUMENT 

LIST— 

USEA 

47 

USEA 

48 

OMfCA  «*4 

NO 

INF 

USEA 

44 

AKX 

R*4 

NO 

INF 

USEA 

50 

AKY 

R«4 

NO 

INF 

USEA 

51 

C 

R*4 

NO 

INF 

USEA 

52 

VX 

R*4 

NO 

INF 

USER 

53 

VV 

R*4 

NO 

INF 

USEA 

54 

IT 

1*4 

NO 

INF 

USEA 

55 

Al 

R*4 

NO 

OUT 

USEA 

36 

A? 

R*4 

NO 

OUT 

USEA 

57 

A3 

R*4 

NO 

OUT 

USEA 

38 

USEA  59 
USEA  60 
USEA  61 
USEA  62 
USEA  63 
USEA  64 
USEA  65 
USEA  66 
USEA  67 
USEA  68 
USEA  69 
USEA  70 
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FROGRAM 

USEAS 

FACE 

92 


ABSTRACT)* 

- OUTPUTS - 

*.  -PARAMETER  DEFINED  BY  FORMULAS  tN  **SI**CT 

I?  -PARAMETFR  OEFINEO  BY  FORMULAS  IN  ‘MJRACT 

I]  .parameter  oefined  by  formulas  tn  abstract 

- - PROGRAM  FOLLOWS  BELOW— — 

SUBROUTINE  USEASI0MEGA.AKX.AKV,C,VK.VY.1T.A1,A2.A3I 

WE  ASSIGN  VALUES  TO  Ai.A2.A3  WHICH  WILL  NOT  NECESSARILY  BE  THEIR  £*IT 
VALUES* 

Al-1.0 

A2-0.0 

f p  ir'is*?.  these  are  correct,  however. 

|F|lr  .EO.  i)  RETURN 
IF!  IT  .GT.  21  GO  TO  200 

IT  IS  2.  THE  CURRENT  VALUES  ARE  1.0,1.  WE  CHANGE  THE  FIRST  TWO. 

Al-0.0 

A2.1.0 

RETURN 

IT  IS  .GT*  2*  WE  COMPUTE  SOME  QUANTITIES  FOR  FUTURE  REFERENCE 
200  akv-akx*vk*akvpvv 

AKSO»ARK*P2RARY**2 

•om.omega-akv 

■  THE  CURRENT  VALUES  OF  Ai.A2.AS  ARE  STILL  1*0.1. 

IPIIT  .GT.  J»  GO  TO  300 

C  IT  IS  EQUAL  TO  3.  ONLY  AS  NEED  BE  CHANGED. 

A3»B0NRARV/IC**2*ARI 

RETURN 

C  IT  IS  *  OR  GAEATFR.  WE  SET  AS  TO  VALUE  AMAQPRIATE  FOR  TT-4. 

f  THE  CURRENT  VALUES  OF  Al  AND  A2  ARE  i  AND  0 
|F| IT  *E0.  4»  RETURN 
|F|tT  .CO.  5»  A3-VXM3 
|F|tT  .CO.  6*  AS»VY*A3 
IFIIT  .EO.  S  .0*.  IT  .EO.  6)  RETURN 

C 

C  IT  IS  T  0*  LARGER 
Ala, 0098/C 
A2"”C 

C  THE  ONLY  OUANTITY  WE  NEEO  TERMIN'"  IS  AS 
C 

IFIIT  .GT.  T)  GO  TO  TOO 

C  IT*T 

AS-AK*OMFGA/BOM**S 

RETURN 

C  TOO  IFIIT  , GT.B I  GO  TO  ROO 
C  IT-R 

A3-l.O/BOM**2 

RETURN 

C  FOR  IT-o.10,11  WE  NEEO  THE  FACTOR  ARS0/R0M**3 
ROO  A3-AKS0/R0M--3 

IFIIT  .EO.  V)  RFTURN 
|FI IT  .GT,  101  Gr  TO  1000 

C  IT. 10 

A3*VX»AS 


USEA  1 

USEA  1 

USE*  1 

USEA  ‘ 

USEA  ‘ 

USEA  ' 

USEA  ' 

USEA  ‘ 

USEA 

USEA  l 

USEA  I 

USEA 

USEA 

USEA 

USEA 

USFA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA  ) 

USEA  1 

USEA  1 

USEA  1 

USEA  ] 

USEA  1 

USEA  I 

USEA  1 

USEA  : 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USFA 

USEA 

USFA 

USEA 

USEA 

USEA 

USEA 

USEA 

USEA 

USE* 

USEA 

USEA 

USEA 


Tl 

T2 

73 

TA 

73 

T6 

77 

Tt 

70 

BO 

81 

82 

83 

8* 

63 

86 

87 

SB 

89 

90 

91 

92 

93 
9* 

93 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 

no 

111 

112 

113 

11* 

113 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 
>  126 

127 

i  126 
l  129 
L  130 
I  131 
I  132 
k  133 
l  13* 
k  135 

k  136  PROGRAM 

A  137  USfAS 

A  1 3R 

A  13»  PAGE 

A  1*0  93 
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RETURN 

C 

C  IT-11  * VOO  SHOUtON-T  INPUT  it  for  values  outsicf  r»ngf  of 
IOOO  *T»vr*A3 
RETURN 
FNO 


TC  ll.I 


USE*  Ml 

use*  ur 

USE*  143 
USE*  144 
USE*  149 
USE*  146 


PROGRAM 

USERS 

PAGE 

44 
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c 

WIDEN  C SUBROUTINE )  6/19/68 

WIDE 

1 

c 

WIOE 

2 

c 

WIOE 

3 

r 

- abstract - 

WIDE 

4 

c 

WIOE 

S 

c 

T!  TIE  -  WIDEN 

WIOE 

6 

c 

WIDEN 

RATE  I*  INRODE  RV  ADDING  KW  COLUMNS  BETWEFN  COLUMNS  Nl  AND 

WIOE 

T 

c 

Nl*l 

WIOE 

B 

c 

WIOE 

9 

c 

WIDEN  ADOS  KW  ELEMENTS  TO  THE  VECTOR  OF  ANGULAR  FREQUENCt 

WIOE 

10 

c 

OR  ,  DIVIDING  THE  INTERVAL  BETWEEN  OMCN1I  AND  OMINUll  IN 

WIDE 

11 

c 

KW*t  EQUAL  PARTS.  FOR  EACH  NEW  ANGULAR  FREQUENCY,  A  NEW 

WIDE 

12 

c 

COLUMN  IS  ADDED  TO  THF  INMOOE  MATRIX  (OEFtNEO  IN  SUBROU¬ 

WIOE 

13 

c 

TINE  NPOUT).  INMODE  IS  STOREO  IN  VECTOR  FORM,  COLUMN  AFT 

WIOE 

14 

f. 

COLUMN. 

WIOE 

15 

c 

WIDE 

16 

c 

LANGUAGE 

FORTRAN  IV  H60,  REFERENCE  MANUAL  C2B-6S15-4I 

WIOE 

IT 

f. 

WIOE 

18 

c 

AUTHORS 

A.C.PIERCE  AND  J. POSEY,  M.I.T.,  JUNE,1<»68 

WIDE 

IS 

c 

WIOE 

20 

c 

WIOE 

21 

r 

- USAGE - 

WIOE 

22 

c 

WIDE 

23 

r 

ON, V. INROOF  RUST  RE  OIRENSIONEO  IN  CALLING  PROGRAM 

WIDE 

24 

c 

the  ONLY 

SUBROUTINE  CALLED  IS  NHOEN,  DESCRIBED  ELSEWHERE  IN  THIS 

WIDE 

23 

c 

SERIES 

WtOF 

26 

r 

WIDE 

2T 

r. 

FORTRAN  USAGE 

WIOE 

28 

r 

CALI  WIDEN! OR«V« INMOOE .NON, NONP.NVP.Nl *KW,THETR! 

WIDE 

2S 

c 

WIOE 

30 

r 

INPUTS 

WIDE 

31 

c 

WIDE 

32 

c 

OR 

VECTOR  WHOSE  ELEMENTS  ARF  THE  VALUES  OF  ANGULAR  FREQUENCY 

WIOE 

33 

r 

R*4|0I 

CORRESPONDING  TO  THF  COLUMNS  OF  MATRIX  INMODE.  IRAD/SECI 

WIDE 

34 

c 

WIDE 

35 

c 

V 

VECTOR  WHOSE  ELFMENTS  ARE  THE  VALUES  OF  PHASE  VELOCITY 

WIDE 

36 

r 

R*A1DI 

CORRESPONDING  TO  Tj  .  ROWS  OF  WATRIX  INMOOE.  IKM/SEC) 

WISE 

37 

c 

WIDE 

38 

f 

INMOOE 

EACH  ELEMENT  of  THIS  MATRIX  CORRESPONDS  TO  A  POINT  IN  THE 

WIOE 

3S 

r 

1*4(01 

FREOUENCY  ION?  -  PHASE  VELOCITY  (VI  PLANE.  IF  THE  NORMAL 

WIOE 

40 

r 

MO0F  DISPERSION  FUNCTION  (FPP,  FOUND  BY  CALLING  SURRDUT IN 

WIDE 

41 

f 

NNOFNt  IS  POSITIVE  AT  THAT  POINT,  THE  ELEMENT  IS  *1,  IF 

WIDE 

42 

c 

FPP  IS  NEGATIVE,  THE  ELEMENT  IS  -I,  IF  FPP  DOES  NOT  EXt ST 

WIDE 

43 

r 

THF  ELEMENT  IS  5.  INMOOE  IS  STORED  IN  VECTOR  FORM,  COLUM 

WIDE 

44 

c 

AFTER  COLUMN. 

WIOE 

45 

r. 

WIOE 

46 

c 

NOR 

NUMBER  OF  ELEMENTS  IN  ON  ( Ai'IO  NO.  OF  COLUMNS  IN  INMODE  1 

WIOE 

4T 

r 

1*4 

WMFN  WIDEN  IS  CALLED. 

WIDE 

4B 

c 

NVP 

NUNRFP  OF  ELEMENTS  IN  V  UNO  NO.  OF  ROWS  IN  INMODEI. 

WIDE 

4S 

c 

I** 

WIDE 

50 

c 

WIDE 

51 

r. 

Nl 

NUMBER  OF  INMOOf  COLUMN  IMMEDIATELY  LEFT  OF  SPACE  IN  WHIC 

WIDE 

52 

c 

1*4 

NFW  COLUMNS  ARF  TO  RE  AOOED. 

WIDE 

S3 

r 

WIDE 

54 

f 

KW 

WIOE 

55 

c 

1*4 

NUMBER  OF  COIUMNS  TO  BE  ADDED  TO  INMODE. 

WIDE 

56 

r 

WIDE 

57 

r 

TMETK 

PHASE  VELOCITY  DIRECTION  ME4SURE0  COUNTFR-CLOCKWl SF  FROM 

WIOE 

5R 

c 

R*4 

X-AXtS  (RAO IANS  1. 

WIOE 

59 

c 

WIDE 

60 

r 

OUTPUTS 

WIDE 

61 

c 

WIDE 

62 

r 

THE  OUTPUTS  ARE  NP«P  («  NOR  ♦  KW  •  THE  NEW  NUMBER  OF  ELFKENTS  IN  OR 

WIDE 

63 

c 

AND  THF  NFW  NURRFR  of  COLUMNS  IN  INRODEI  AND  RFVISFD  VERSIONS  OF  OR 

WIOE 

64 

r 

AND  INROOE. 

winE 

65 

c 

WIDE 

66 

PRCGRAW 

r 

WIDE 

67 

WIDEN 

r 

- EXANPIF - 

WIOE 

6* 

c 

WIDE 

69 

PAGE 

r 

SlIPPOSF  OR  «  t.O.?. 0,5.0  AND  WIOFN  |S  CALLED  WITH  AW  *  3,  AND  Nl  • 

WIDE 

70 

95 
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f 

2.  THEN  UPON  RETURN  TO  CALL  INC  PROGRAM#  ON  »  1.0. 2.0, 2,25, 2. 5, 2. 

T5, 

MtOE 

n 

r 

1.0.  NON*  *  A,  ANO  INHOOE  MILL  HAVE  THREE  NEM  ROMS  CORRESPONDING 

TO 

MICE 

n 

r 

THE  NEM  ELEMENTS  CE  ON. 

miof 

73 

r. 

MIOE 

T4 

c 

MtOE 

75 

r 

- PROGRAM  EOLLOMS  BELOM - 

MIOE 

T6 

c 

MIOE 

77 

c 

MtOE 

78 

SUBROUTINE  Ml OENI OM.V.I NMOOE.NOM.NOMP .NVP.N1 .KM.THETR 1 

MIOE 

7B 

c 

MIOE 

BC 

f 

VARIABLE  DIMENSIONING 

MtOE 

B1 

DIMENSION  OMUl.vin.INMnOEIll 

MIOE 

82 

COMMON  IMAX.CIUOOI  ,VX I < 100 t ,VY 1(100 1 .Ht ( 1001 

HIDE 

83 

f 

MtOE 

84 

f 

INTERVAL  AT  MHIfH  NEM  VALUES  OF  OM  ARE  BE  PLACED  BETMEEN  0MIN1I  ANO 

MIOE 

AS 

c 

OMfNl+1)  IS  DETERMINED 

MIOE 

86 

OELOM«nMcNl.n-CMINll»ECKM*ll 

MtOE 

B7 

f 

MtOE 

88 

c 

NOMP  IS  number  of  element  in  expanded  OM 

MIOE 

89 

NOMP»NCM*KM 

MIOE 

80 

f 

MtOE 

81 
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A  computer  program  is  described  which  enables  one  to  compute  the  pressure  wave¬ 
form  at  a  distant  point  following  the  detonation  of  a  nuclear  explosion  in  the 
atmosphere.  The  theoretical  basis  of  the  program  and  the  numerical  methods  used 
in  its  formulation  are  explained;  a  deck  listing  and  instructions  for  the  program's 
operation  are  included.  The  primary  limitation  on  the  program’s  applicability 
to  realistic  situations  is  that  the  atmosphere  is  assumed  to  be  perfectly 
stratified.  However,  the  temperature  and  wind  profiles  may  be  arbitrarily 
specified.  Numerical  studies  carried  out  by  the  program  show  some  discrepancies 
with  previous  computations  by  Harkrider  for  the  case  of  an  atmosphere  without 
winds.  These  discrepancies  are  analyzed  and  shown  to  be  due  to  different  formu¬ 
lations  of  the  source  model  for  a  nuclear  explosion.  Other  numerical  studies 
explore  the  effects  of  various  atmospheric  parameters  on  the  waveforms.  In  the 
remainder  of  the  report,  two  alternate  theoretical  formulations  of  the  problem 
are  described.  The  first  of  these  is  based  on  the  neglect  of  the  vertical 
acceleration  term  in  the  equations  of  hydrodynamics  and  allows  a  solution  by 
Cagniard's  integral  transform  technique.  The  second  is  based  on  the  hypothesis  of 
propagation  in  a  single  guided  mode  and  permits  a  study  of  the  effects  of 
departures  from  stratification  on  the  waveforms. 
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